AAAAAAAAA 

AARAAAARK 

AAAAAAABRA 
AA BAL 
ABL ABA 
ARR AAA 
AAA Aaa 
AAA ARA 
AAA AAA 
AAA ALA 
AAA AAA 
KAR ADA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ALA AAA 
AAR AAA 
AAR Aaa 
AAA AAA 
Aha AAA 
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AOOOAOOOIAIOAOIOOIAOIS 
OOM OAOAIOAAIAAIAIAOOA 
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KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
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KKK KKK 
KKK KKK 
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KKK KKK 
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UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
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UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
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PPP 
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6 9 
| #*F ILE®®1D0® JOURNAL 
JJ 000000 = wu UU RRRRRRRR NN NN AAAAAA LL 
JJ 000000 WU UU RRRRRRRR NN NN _AAAAAA LL 
JJ 00 00 UU UU RR RR NN NN AA AA LL 
JJ 00 00 UU UU RR RR NN NN AA LL 
JJ 00 00 UU UU RR RR NNNN NN AA LL 
JJ 00 00 UU UU RR RR NNNN NN AA AA LL 
JJ 00 00 UU UU RRRRRRRR NN NN NN AA AA LL 
JJ 00 00 UU UU RRRRRRRR NN NN NN AA AA LL 
JJ JJ 00 00 UU UU RR RR NN  NNNN AAAAAAAAAA LL 
JJ JJ 00 00 UU UU RR RR NN NNNN AAAAAA LL 
JJ JJ 00 00 UU UU RR RR NN NN AA AA LL pine 
JJ JJ 00 00 UU UU RR RR NN NN AA AA LL ames 
JJJJdJ 000000 UUUUUUUUUU RR RR NN NN AA AA LLLLLLLLLL anger 
JJIIIJ 000000  YUUUUUUUUU RR RR NN NN AA AA LLLLLLLLLL oe 
LL eee SSSSSSSS 
LL HI SSSSSSSS 
LL II SS 
LL II SS 
LL 1] SS 
LL 1] $$ 
LL 1] SSSSSS 
LL II SSSSSS 
LL 1] $$ 
LL 1] SS 
LL 1] 3 
LL I] SS 
LLLLLLLLLL «=—sTIII «= SSSSSSSS 
LLLLLLLELE §=—sTTTII1 «= SSSSSSSS 
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MODULE JOURNAL (2TI TLE Jeyrnet file manager’ 
= 


BEGIN 


' 
i eeeeneeereeeenereereeeeeeeeeeeereeeteeeeeerereeteeneeeeneneneeeneeeeeenerees 
ie 


i MODIFIED BY: 


ane 


aa 
™~ 

ooo 

ooo 


ss 
oe 
3 5 } 
; : 1 
; 8 64 1! 2 
3 09 1 !'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
; 19 1 !* DIGITAL Soe CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 13 , : oe ALL RIGHTS RESERVED * 
; ; © 
3 ig ig 1 !e me bbe IS oni pee UNDER A LICENSE AND MAY BE USED AND COPIED * 
; O16 14 1! mes rat ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s 15 1 !* INCLUSION oF OTNE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 18 1] !e COPIES THEREOF ag wh BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:..% 17 1 !* OTHER PERSON. ITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; + BI8 \ :* TRANSFERRED. * 
3 'e * 
3 0 0020 1 !'* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ¢ 00 ¢ : - CORPORATION. : 
3 te 
3 4 80 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
; é 88 i , » SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 
4 i 
: 8 D038 : | sonaneceniedunubeienasagnannneansadenionuemneseiennebenenehedhuensoneasesens 
3 00 1: 
; 3 g086 1 tee 
3 $ O236 1! FACILITY 
3 Z B27 : Backup/Restore 
:; 35 9059 1 | ABSTRACT: 
: $ Boss ' This module contains the routines that manage the journal file. 
; 35 0038 1 | ENVIRONMENT 
; 9 0039 1: VAX/ VMS user mode. 
; 2 i 
‘se ; AUTHOR: M. Jack, CREATION DATE: 8-Apr-1981 
: 4 1 
3 «¢ 5 i! 

7s Bpe$ 1! v03-005 Lv0510 Larry Y 19=-JU -1984 08:52 

3 rt ps ! } Remove *'"' from default a file name 

: 49 $ 1 i v03-004 LY0498 arry to 25-JUN-1984 12: 30 

; @ 50 1! Save extention size ay oa file after opening 

: 23 B23 ! and use this size for future extends instead of 

: : ba 1 i v03-003 LY0488 Larry Yetto 21-MAY-1984 16:08 

: 4 B28 1! Add ASSUME statument to make sre that the directory 

3 5 > 2s record size is large enough for long directory names. 

a: 2 26 1! Fix problem where the journal file ends 

» § 057 1! up with a block of zeros in it if 


tite manager HESeoctoge 90:05:52 cH BL sgn 82, 05042 


FFFSSSAA 
VW —OO® 


mee at ts 4 os 6 1. a ss 9 ss 2 


SN NNIOOOO 
MEWN-—COGNO 


S8ssss 


a@ save set ends exactly on a block boundary 


v03-002 LY0463 arry Yetto 1-FEB-1984 10:36 
ae support for ournal le structure level 2. This new 
roars add a flag longword to gecn file entry to enable us 

129 the fect that only a file header was saved for a 
pert cular file. 


v03-001 ACGO0313 Andrew C. Goldstein, 12-Feb-1983 16:17 
Add routine subtitles 


v02-003 MLJ0054 Martin L. Jack, 22-Nov-1981 22:11 
Integrate GET_VM and FREE VM jacket routines. 


v02-002 MLJ0036 Martin L. Jack, bly es al 17:53 
Replace OWN storage with’ common variables. Remove explicit 
routine parameters. 


v02-001 mLJ0025 Martin L. Jack, 8-May-1981 11:48 
Reorganize OWN storage. Dynamically allocate directory string 
buffer. Don't bother to free dynamic memory. 
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Gg 
JOURNA Journal file manager 1b-se -1984 00:03: AX-11 Bliss-32 V4.0-742 Page 3 
Joon 005 as 12-8 08-1 3b 90:03: 3¢ YBACKUP SRE IJOURNAL .B32¢1 . (2) 
3 ¢ 0081 1 REQUIRE ‘SRC$:COMMON’; 
3 1187 1 LIBRARY ‘SYSSLIBRARY LIB"; 
3 4 11 ; 1 REQUIRE ‘LIBS:BACKDEF'; 
; £ 1889 4 
; 1640 1 FORWARD ROUTINE 
3 1641 1 OPEN_JOURNAL: NOVALUE, ! open or create journal file 
; 8 1668 1 CLOSE_JOURNAL: NOVALUE, ' Close journal file 
; 90 1645 1 WRITE _BLOCK: NOVALUE, ! Write Block to journal file 
; #1 1644 1 WRITE _BYTE: NOVALUE, ! Write byte to journal file 
; 4 1645 1 WRITE_RECORD: NOVALUE, ! Write record to journal file 
;- 1646 1 WRITE_JOUR_SSNAME : 
; 94 1647 1 NOVALUE, ! Write SSNAME record 
; «9S 1648 1 WRITE_JOUR_VOLUME : 
; | «696 1649 1 NOVALUE, ! Write VOLUME record 
3; W7 1650 1 WRITE_JOUR_FILE:NOVALUE, ! Write DIRECTORY and FILE record 
; 98 1651 1 WRITE-JOUR-DIRECTORY: 
; 2699 1636 1 NOVALUE; ! Write final DIRECTORY record 
: 190 iss 
: 108 1655 1 EXTERNAL ROUTINE 
; 10 1938 1 GET_VM ! Allocate virtual memory 
: 104 1657 1 GET~ ZERO vA, ' Allocate and clear virtual memory 
: 105 1658 1 FILE_ERROR: NOVALUE ; ! Signal file-related error 
we ey 
> 108 1661 1 EXTERNAL LITERAL 
3; 109 1656 1 ACKUP$_OPENIN 
: 110 1663 1 CKUP$~OPENOUT, 
: 111 1664 1 BACKUP$_READERR 
: 1 1665 1 BACKUPS “WRITER. 
cy Oe 1666 1 ACKUP$_READATTR 
: 114 1667 1 BACKUP$ WRITEATTR, 
: 115 1668 1 BACKUP$_NOTJ ° 
3 118 1669 1 BACKUP$_JOUR 
; #11 1670 1 BACKUPS_INVBJLTYP, 
; 118 1671 1 BACKUPS_INVBJLSIZ, 
>: 119 167 1 BACKUP$—INVBJLSTR, 
: 120 1673 1 BACKUPS$_INVBJLEOF ; 
: 183 1er8 
3 155 1676 1 GSDEFINE(); ! Define global common area 
ne 
e 6 1838 1 BUILTIN 
‘3 1680 1 ROT; 
es 
: 180 1888 1 BIND 
s 151 1684 1 STRUC_RECORD = UPLIT BYTE ( 
3; 132 1685 1 WORD (BJLSK_LEVEL2)); 


K 
OPENCJOURNAL "open journal. file 1eo$ep-19be 99:98:3% — EBAckUPeSneSaouRNAL +B S251 ae ee 
$ 


16 1 ZSBTTL ‘OPEN JOURNAL = open jovenel {its 


aor 


: Initialize the FAB. 


FAB = .QUALCQUAL_JOUR_FC); 
FABLFABSL_DNA) ="UPLIT BYTE('.BUL"); 
FABLFAB$B-DNS) = ZCHARCOUNT('.BJL"): 
IF, FABLFABSB_FNS3 EQL 0 


i 


FAS 


FABSL_FNA UPLIT BYTE(*BACKUP'); 
F FNS 


AB = ; 
ABLE ABSB_ = ZCHARCOUNT ("BACKUP"): 
AB$v ua} z 

AB 

AB 


TRUE; 
FaBsé FIX: 


: 9 
3 : fe : GLOBAL ROUTINE OPEN_JOUR UTPUT REVERSE): NOVALUE= 
: 188 1683 1 i” 
3; 139 1691 1 =! FUNCTIONAL DESCRIPTION: 
: re 1636 ; } This routine opens (or creates) the journal file. 
3 166 1694 1 ! INPUT PARAMETERS: 
; (14 1695 1! OUTPUT - True if the journal file is being written, false if 
3 6146 1098 * being read. 
> 145 1697 1! REVERSE - True if the journal file is being read backward, 
; 146 1098 false if being read forward. Required only if 
; 1467 1699 1! OUTPUT is false. 
148 1 1! 
:; 149 1 a 1 ! IMPLICIT INPUTS: 
: 139 : O : } QUALCQUAL_JOUR_FC] = Pointer to FAB for journal file. 
s 126 1704 1 ! OUTPUT PARAMETERS: 
Bo 8 | ate, 
s 155 1707 1°! IMPLICIT OUTPUTS: 
: 188 1709 1 i te: 
; 158 1710 1 =! ROUTINE VALUE: 
Bo Wi = 
3: 161 1 ig 1 ! SIDE EFFECTS: | 
3 166 1714 171! NONE 
;s 1715 1! 
: 164 1716 1 !-- | 
: 182 i is ! BEGIN | 
 % 1719 LOCAL 
9 1720 REF BBLOCK, ' Pointer to FAB 
- > 1721 STATUS, ' Status variable 
a 1 $8 OSB: VECTORE4,WORD], ! 1/0 status block 
F-% 172 ATR_DESC BBLOCK ! ACP attributes list. 
g 1 1724 RECATTR: BBLOCK FATSC_LENGTH - . | Record attributes area 
: : 3 ! Statistics bloc 
: : $2 STATBLK BBLOCK(8) ' Statistics block 
. 1 3 
. = 1728 
as 1 $3 
ee 1730 
a 1 
.% 1 
.. 1 
: 1 1 
s 1 1 
s 1 1 
. ¥ 1 
% 1 
=.” % 1 
a. ¥ 1 
s 1 1 
is 1 


SN NS SNS SSS 
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mC 0Onou 


66 
67 
68 
69 
70 
a: 
a‘ 
74 
Le 
8 
3 
5 
i 
84 
85 
86 
87 
88 
89 
90 


a 
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"JOURNAL = open journal file er geen 1 8he 9P:88:8e | a cnbe Othe Sib GRNAL Bost — 


es 
g 
3 


r 
N 
; 191 174 ' Issue the OPEN or CREATE service as appropriate. 
: 198 ete 8 | nis 
; 9 1745 . OUTPUT 
; 133 1768 HEN 
; 195 174 BEGIN 
3 136 by FAB heey pred =1; 
3; «619 174 FABLFABSV_CIFJ = TRUE; 
: 198 1750 4% IF NOT $CREATE(FAB=.FAB) 
; 199 1751 N 
3 4 17 ; FILE_ERROR( 
; ° Ife? BACKUPS _OPENOUT + STSSK_SEVERE, 
3 9 1388 -FABCFABSL_STSJ, -FABCFABSL_STVJ); 
3; 204 1738 END 
; 205 175 ELSE 
P} 5] 1758 BEGIN 
3 0 1759 4 IF NOT SOPEN(FAB=.FAB) 
3 $8 1760 THEN 
3 1761 FILE_ERROR( 
3 19 1706 BACKUPS _OPENIN + STSSK_SEVERE, 
: HE 1764 -FABCFABSL_STS3, .FABCFABSL_STVI); 
: 1 1765 END; 
3 14 1766 
3 215 1767 
: 19 1798 Get the record attributes and the file size. 
; 318 1770 2 ATR_DESCLO,0,16,0] = ATRSS_RECATTR; 
: 21 1771 ATR_DESCE2,0,16,0] = ATRSC_RECATTIR; 
; $30 178 ATR_DESC $°0°36 03 = RECATTR; eel: 
3 1 177 ATR_DESC(8,0,16,0) = 8; ! only need 8 bytes of statistics block 
i 38 1774 2 ATRIDESC 19.6.16.03 = ATRSC_STATBLK; 
; 1775 2 ATRIDESCLI 0.32.0) = STATBLK; 
3 225 P 177 STATUS = $Qi0UC 
; 26 P 1778 FUNC=I10$_ACCESS, 
: 227 P 1779 CHAN=.FABCFABSL_STVJ, 
; 228 P 1780 10S8=10SB 
; 329 1781 PS=ATR_DESC); 
. 2 178¢ IF .STATUS THEN STATUS = .10SB(0); 
: 31 178 IF NOT .STATUS 
3 3 1784 THEN 
3; 2 1785 FILE_ERROR( 
; 34 1786 BACKUP$_READATTR, 
: 5 17 FAB 
: 1788 STATUS); 
: 7 178 
3 8 1790 
: 39 1791 ' Check the record attributes to ensure that this is, in fact, a BACKUP 
3; 240 1736 ! journal file. If the file is zero length, allow any attributes and then 
: 241 179 ' force them correct. For example, this allows the CREATE command to be 
: . 1 : used to generate a fresh journal. 
3 266 a If .STATBLKCSBKSL_FILESIZE) NEQ 0 
: $02 1795 5 TEN 
: 4 1799 -RECATTRCFATSB_RTYPE) NEQ FATSC_FIXED OR 


pau 2 9 


vuuvuvUvv 
ee ee ee ee a a ee a ee ee a a a a a a a ed 


= 
‘3 


"epen journal file 1ergeei18be 99:98i8e | eakchbe thE sacaNAL aso 


»RECATTREFATSB_RATTRIB) wed 0 OR 
eRECATTRLFATSW_RSIZEJ NEQ 1 
THEN 
FILE_ERR 
BACKUPS _NOTJOURNAL , 
FAB); 
Save the critical attributes for further processing. 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
3 
4 
4 
; 


jour LHIBLK = ROT(.STATBLKCSBKSL_ FILES 2€], 16); 
JOUR“EFBLK = ROTC gRECATTR PATSLe aerate , 16); 
JOUR FFBYTE 
IF SAECATTRCFATSU, jereny a0 

JOUR_EXSZ = ARECATTR FATSW satents 
evse JOURTEXSZ =i ; 


Initialize other context. 


JOUR COUNT 
JOUR “BUFFER. = Cer vm(512); 
JOUR-DIR = GET_ZERO_ vm (BUL$C _DIR_LEN+1); 
: Initialize for input or output processing, as appropriate. 
if .OQUTPUT 
THEN 
BEGIN 
: Read back last block if it exists and is not full. 
if JOUR. EFBLK LEQU .JOUR_HIBLK AND .JOUR_FFBYTE NEQ 512 
BEGIN 
ae = $010W( 
UNC=10$ PeApyeLE 


ENAN FAB FABLFABSL_STV), 
1s 


OONOUES WN —OOONOUS WN oO 


10SB=10S 
P =, JOUR et, 
P2= 


S&F FAW wwronorn 


P3=.JOUR_E 
IF .STATUS TREN BL tus = .10SB(0); 
IF NOT .STATUS 


THEN 
FILE_E 
BACKUPS. READERR + STSSK_SEVERE, 


FAB 
*STATUS); 


512, .JOUR_BUFFER); 


6; 
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JOURNA Journal file manager 16-Sep-1984 00:03: AX-11 Bliss-32 V4.0-742 
you~ 000 OPEN_JOURNAL = open journal file 12286871388 99:03:82 YBACKUPYSREIJOURNAL 83271 
H } a : Log the file name if requested. 
; 9 33 if .QUALCQUAL_LOG) 
; 09 180) FILE_ERROR(BACKUP$_JOURNAL, .FAB); 
i. es 
; \§ } rt: Write structure-level record. 
: 314 1 66 R_CO 0; ! Initialize XOR byte count 
> 315 186 WRITE RECORD 
; 16 1 8 BILSK_STRUCLEV, 
: 31 1 6 BJLSC“STRUC_LEN, 
; 318 1870 STRUC-RECORD) ; 
: 319 1871 
; 320 1 rg ELSE 
; 3 if BEGIN 
; 5 1875 ! Establish poseer to current input byte. The pointer always points to 
; 324 137¢ ! the byte that would have been returned on a previous call to READ_BYTE 
3 5 144 } in the established reading direction. 
; : 1879 JOUR_REVERSE = .REVERSE; 
: 8 1880 IF .REVERSE 
: ¢9 1881 THEN 
; 0 1 Be 4 BEGIN 
; 331 1883 4 JOUR_INBLK = .JOUR_EFBLK; 
3 33 1884 4 JOUR-INBYTE = .JOUR_FFBYTE; 
: 33 1885 4 END 
: 3 1869 i BEG 
; 36 1888 4 JOUR_INBLK = 0; 
; 1889 4 JOUR-INBYTE = 511; 
; 338 4 ; END; 
3 39 1891 
3 340 189¢ 
3 41 a+ Read first block if it exists. 
; as 1895 Uf JOUR. INBLK NEQ 0 AND .JOUR_INBLK LEQU .JOUR_HIBLK 
: 345 1599 4 BEGIN 
3 346 P1898 4 STATUS = $010W( 
: 347 P 1899 4 FUNC=10$_READVBLK 
; 48 P 1900 4 CHAN=.FABLFABSL_STV), 
: P1901 4 10SB=10S8 
: 30 3 1908 4 pis JOUR_BUFFER, 
. s e 
; 3 1904 4 P3=. JOUR_INBLK); 
; 35 1905 4 IF .STATUS TREN STATUS = .10SBL0); 
; 26 1906 é If NOT STATUS 
: 36 1908 4 FILE_ERROR( 
3 3 +44 ? GACKUPS_READERR + STSSK_SEVERE, 
: 359 1911 4 * STATUS): 
; 360 1918 3 END; 
: 361 191 END; 


ee 
ett 


; 362 


Journal file manager 


OPEN JOURNAL = open journal file 
1914 1 END; 


18.20 -1984 00:03: 
14- 730p- 1384 90:03: 4 


TITLE 
. IDENT 
.PSECT 
00000 GLOBAL_BASE: 
00000 FREE_LIST: 
00008 INPUT WAIT 
00010 REREAD_WAIT: 
00018 OUTPUT_WAIT: 


-BLKB 
00020 JPI_UIC:.BLKB 
00024 JP1_USERNAME : 


BLK 
00030 JPI_DATE: ~ 
00038 JPL_NODE_DESC: 
00040 JPI_CURPRIV: 

-BLKB 
00048 sy -VERSION: | 


Q004C SYI_SID:.BLKB 
00050 RWSV_HOLD_LIST: 


00058 RWSV_ cries 
00098 nusy_auTopine 
00008 RUSV_FILESET ID: 
000E0 RWSV “VOLUME. ID: 
OOOEC RWSV_VOL “NUMBER: 
OOOEE RWSV_SEG “AUMBER: 
OOOFO RWSV_FILE_NUMBER: 
O00F4 RWSV_SAVE GUAL: 
OOOF8 RWSV_SAVE FAB: 
OOOFC RWSV_CHAN: 

00100 RWSV_XOR “Bee: 
00104 RWSV_IN_SEQ: 
00108 RWSV_IN_SEQ_ 


2“ VAX#11._ BLiss-32 v4.0-76 | 
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JOURNAL Journal file manager 
vOs~000\ ~ 


COMMON,NOEXE, OVR,2 


PF Fk PF PF FEN Ww” 


ee rr 


RNA Journal file manager 


-0 OPEN_JOURNAL = open journal file 


16- 


14- 


10 
-Sep- 
=bep- 


1986 99:93: ‘ 


-BLKB 
0010C RWSV_IN_ HOR ge: 
00110 RWSV_IN_ =Xor RFA: 
00116 RwSV aan 


00117 RwSv ~xoREI2E 


00118 RWSV_IN SHOP $1 
0011¢ RWSV_IN ERRORS 
OO11E RWSV_IN_XORUSE: 
.BLKB 
00120 RWSV_IN_ORGERR: 


~BL 
00128 RWSV_IN_VBN: 


-BLKB 
0012C RUSV_IN_VBN, 0: 


00130 RwSV -ALLOC: 
00134 RWSV_EOF: 
00138 RWSV_OUT “Sea: 
0013¢ RwSV_OUT. “VEN: 


00140 RWSV_OUT BLOCK, COUNT: 
00144 RWSV_OUT_ERRORS: 
00146 RWSV_SEO_ERRORS: 
00148 RWSV_OUT_GROUP_COUNT: 


~BL 
00149 RWSV_PADDING: 


0014 


C QUAL: 


-BLKB 


001BC COM_SSNAME : 


LK 
0014 COM_VALID_TYPES: 


001¢6 COMFLAGS: 
001C8 COM_PADDING: 


-BLKB 
001¢9 COM_BUFF COUNT: 
OO1CA COM_1_SETCOUNT: 

.BLKB 
001CB COM_O_SETCOUNT: 

-BLKB 
001cc COM_1_STRUCNAME : 
001D8 COM_O_STRUCNAME : 


SPF RFF RF FON NH BRK = oO BS” 
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™m 
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BACKUP. SRC JJOURNAL .B32; 1 
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JOURNA Journal file manager 19 Sep-19 2 AX-11 Bliss-32 V4.0-742 
yOen 000 OPEN_JOURNAL = pos journal file 14-Sep- ets 7 90: 9: Hi BACKUP. SR¢ JOURNAL .B32; 1 eet 3 
-BLKB 12 
OO1E4 COM_O BSRDATE: 8 


| 
| L 
| QO1EC ALTLSSNAME: |, 
0020¢ INPUT FUNC: 
00200 INPUT _RTYEE : 
0020€ OUTPUT FUNC: | 
0020F FAST STRUCLEV: 
00210 INPUT_BEG: 
00210 INPUT_CHAN: 
00214 INPUT FLAGS: 
00216 INPUT_PADDING: 
00218 INPUT_FAB: 
0021C INPUT_NAM: 
00220 INPUT_BCB: 
00224 INPUT_QUAL: 
00228 INPUT_BAD: 
.BLKB 
0022C INPUT_BLOCK: 
00230 INPUT _MAXBLOCK: 
00234 INPUT MEDIA ID: 
00238 INPUT_NAMEDESC: 
-BLKB 
00240 INPUT_STATBLK: 
00248 INPUT_HDR BEG: 
00248 INPUT_CREDATE: 
-BLKB 
00250 INPUT_REVDATE: 
.BLKB 
00258 INPUT_EXPDATE: 
.BLKB 
00260 INPUT BAKDATE: 
00268 INPUT _FILEOWNER: 
0026C INPUT_FILECHAR: 
-BLKB 
00270 INPUT_RECATTR: 
.BLKB 


ee ee ee 
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JOURNAL Journal file manager 


OPEN_JOURNAL = open journal 


oe fein sn9b 


00290 INPUT_HDR_END: 
-6LKB 
00290 INPUT END: 
00290 INPUT_PROC cst: 
00294 INPUT PLACEMENT: 
0029¢ INPUT_VBN List: 
002A4 INPUT_PLACE_LEN: 
00246 INPUT _PADDING.2: 
002A8 output _eéG: 
002A8 ouTPut cia 
002AC OUTPUT FLAGS: 
OO2AE OUTPUT_PADDING: 
00280 ouTPuT “rise 
00284 OUTPUT NAM 
00288 OUTPUT _BCB: 
0028¢ OUTPUT _QUAL : 
002c0 OUTPUT BAD: 
002¢4 OUTPUT_BLOCK: 
002c8 OUTPUT _MAXBLOCK: 
oo2cc OUTPUT _DEVGEOM: 
00204 OUTPUT _ATIBUF: 
00364 OUTPUT “clipe = 
00364 LIST _ToT#ILES: 
00368 LIST_ “rorsties 
0036C VERIFY fips 
00370 VERIFY “uit COUNT: 
00374 VERIFY -0UAt 
00378 COMPARE_BCB: 
0037C FAST _puriehe 
00380 FAST “purfen” RIZE: 


orr nr rrRRHRNHR ON N OW HK OO 
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JOURNA Journal file ma 16-$ AX-11 Bliss-32 v4.0-74 
YOen 00D OPEN_JOURNAL = pos no journal file 14*§ et 90: 3: HA Yexchup sae taOGRWAL Boost ees Ri 
-BLKB 
00384 FAST_RVN: pepe 
00385 FAST_PADDING: 


-BLKB 
00386 DIR_VERLIMIT: 


-BLKB 
00388 FAST VOL_BEG: 
00388 FAST_IMAP SIZE: 
0038C FAST_IMAP: 

-BLKB 
00390 FAST_HDR OF FSET: 
00394 FAST_B00T Tt BN: 
00398 FAST_VOL_ ND 
00398 JOUR BUFFER: 
0039C JOUR_DIR: ve 
0030 JOUR_HIBLK: 
003A4 JOUR_EFBLK: 
003A8 JOUR. INBLK: 
OO3AC JOUR_FFBYTE : 
OO3AE JOUR_INBYTE: 

-BLKB 
00380 JOUR STRUCT LEV: 
00382 JOUR, COUNT: | 
00383 JOUR REVERSE: 
00384 JOUR -EXS2: 
00386 JOUR PADDING: 
00388 CHKPT “HIGH <P: 
003BC CHKPT_LOW SP: 
003c0 CHKPT_STACK: | 
003C4 CHKPT_VARS: 

-BLKB 
003C8 CHKPT_STATUS: 

-BLKB 
oosce D DIR_BEG: .BLKB 

DIR-CHA 


SR OF F FF FNNH HB BH NNRKH RRR KK OK SF FF KON = = 


a KB 
00300 DIR_NAM: .BLKB 


fet 
| 
| 
| 


-— -—-1 


Journal file manager 
OPEN_JOURNAL = open journal file 


iSdeoct9ge 00:05:52 


00304 DIR_DEV.DESC: 
003D8 DIR_SEL_DIR: 
003E0 DIR_SEL_NTV: 
003E8 DIR_STRUCLEV: 
0039 DIR_LEVELS: 
OO3EA DIR_FLAGS: 
003€8 DIR_STATUSS 
003EC DIR_STRINGS 
0052¢ DIR_ STACKS 


BL 
0790 DIR -BLKB 
0794 DIR_ 361 LATEST 
K 
IT 


LKB 
00798 DIR_END: .BL , 
00798 DIR-SCANLIM 


«BLK 
007BC INPUT MTL: Y 
007CO OUTPUT Ait: 
007C4 CURRENT aie 
007C8 CURRENT_VCB: 
-BLKB 
007CC CURRENT WCB: 
-BLKB 
007D0 ACL_FIB DESCR: 
-BLKB 


007D8 ACL_FIB: :BLKB 
00818 ACLILENGTH: 


-BLK 
0081C ACL_BUFFER: 


00820 CRYP_IN_ CONTEXT: 
00824 CRYP_OU ey XT: 
00828 CRYP_DA_CONTEXT: 
0082C CRYP_DATA ENCLV: 
00834 CRYP_DATA_CODE: 


BLK 
00838 CRYP_DATA KEY: 
00840 CRYP_DATA_IV: 


BLK 
00848 CRYP_DATA_CKSM: 
-BLKB 


-@eoenreanr se 8 fs BF omer FR Re 


ws 


AX-11 Bliss-32 V4.0-742 
BACKUP. SRC JJOURNAL B32; 1 


roe i 


Journal file manager 


OPEN_JOURNAL = open journal file 


0102 
oss ih 8 es oR 


58 
5A 
: 

P) 
: 
30 AG 
35 AG 
C AG 
4 A6 
06 A6 
1F = 6A6 
36 AG 
22 
14 A6 
07 = A6 
000000006 29 
E 


000000006 90 
E 


6 


04 


08 
000000006 


MOU "WUI PS NOUOOC POO 


AOO—-ASOV*OAO ON 9 — 


08 A6 
000000006 ar 


Sam 

m 
DoOoooooooooo 
ooooo 


CONN "OOMMMOMoo-owowo 
VI BWI Dowooosomnruvom 


o 
oOo 


oo 


oooo 


Ssss 


oooo 


OOooooeo 


ftatatata 


Oo 


41 
16-$ 
14S 


> Te 


at ta a 
ro 


P.AAA: 
P.AAB: 
06 P.AAC: 


19be 99:98:88 


»PSECT 


«WORD 
ASCII 
ASCII 


STRUC_RECORD= 
.EXTRN 


= 
on 
ee 


~ 
tad 


ely Bliss-32 V4.0-742 
BACKUP.SRCJJOURNAL .832; 1 


CODE ,NOWRT ,2 
258 

\.BJL\ 
\BACKUP\ 


P.AAA 
GET_VM, GET_ZERO_vM 
FILE ERROR, BACKOP$_OPENIN 
BACKOPS_OPENOUT 
BACKUP$_READERR 
BACKUP$_WRITEERR 
BACKUP$_READATTR 
BACKUPS_WRITEATIR 

BACKUPS _NOT JOURNAL 
BACKUP$_JOURNA 


BACKUPS" INVBJLEOF 
SYSSCREATE, SYSSOPEN 
SYS$Q10W 


OPEN A {QURNAL . Save R2,R3,R4,R5,R6,R7,RB,RI,=; 
R10,R11 


#BACKUPS_OPENING4 


WAA 


Wwn—o 


mol 


fom Nels WW Bos) 


ay 


— 


JOURNA Journal file manager 
vOu~000 OPEN_JOURNAL - Open journal file 
69 
8 3 soopoagt 
0 AE 000900 
4 AE 
38 
2c 
5C 
oc 
6A 
57 
07 
57 3¢ 
0c 
7E 
000000006 
69 
04 
01 08 
09 


68 10 «AE 
08 

10 «AB 1A 

10 AB 
000000006 
-f 
000000006 0° 
FB OA 
70 

FC AB 
0200 = 8F 08 


j 
| 
01 OA 
000000006 
69 
FC AB 04 AE 


eve? S> OF — POWOUP VIVIO VP WP VV PP VP COCOr woo 
RODMOMMMOMWS JM VOOMOrommmmmmmmrmmn “rn -- & 


02 


4 iH 
BE OOOA 
D4 AG 
4 A7 
F 8 Ad 
C AC 
7C QO0A 
7C 0008 
oF it 
DD 0008 
DD 00087 
04 44 
FB 000BC 
DO O00BF 
G ponce 
C 000C 
58 000C9 
D OOOCC 
DD OOOCF 
4 00005 
DS 00008 
13 00008 
91 00000 
iF 000E1 
95 000E3 
le 000E6 
Bl OO0E8 
13 QOOEC 
DD 4433 
DD OOOF 
FB OOOF6 
9C QO0F9 
9C aise 
BO 00104 
53 bee 
13 0010C 
BO 001 
11 Batt 
011 
4 00119 
C Bite 
FB 00121 
ge 4 8 
C 0012C 
43 0131 
P9001 
D1 146 
1A 144 
"4 146 
14€ 
ne Ssh 
DD TE 


i 


1 
“$ 
“S$ 
$ 
$ 


5$: 


6$: 


7$: 


8$: 


p-1 


Bbe 99:93:82 Hance hESsacaNac esos 


#, F RROR 
P2b21 7B "AIR 
RECATIR. ATR-D 
#589832, . 4 


e 
ie $s 


, =(SP 
#BACKUPS_READATTR 
#3, FILE ERROR 
TATBLK+ 
RECATIR, #1 
RECATTR+1 
RECATTR+2, #1 
8$ 
FAB 
#BACKUPS_NOT JOURNAL 
#16, STATBLK+4, JOUR_HIBLK 
#16, RECATTR+8, JOUR-EFBLK 
RECATIRGI2, JOUR_FFBYTE 
CATTR#1 
RECATTR#+18, JOUR_EXSZ 
#1, JOUR_EXS2 
youR_ COURT 
#512, -(SP) 
, GET_VM 
RO JOUR BUFFER 
#256, -(SP 
#1, GET_ZERO_VM 
RO. JOUR DIR 
oufPuT 
; R_EFBLK, JOUR_HIBLK 
JOUR_FFBYTE, #512 
12$ 
(SP) 


-(SP) 
JOUR_EFBLK 


roe 


AMONG 
—_———_—_—_—___—_——_ 


ee 
NNN 


7 
7 
7 
7 
7 
8 


Journal file manager 
OPEN_JOURNAL = open journal file 


cat 


0200 =8F 00 


FDB3 


0000v 
OF 
04 
OA 
OA 


FC 


SS 


7€ 


7E 


NOMOWW 
MmonNn>P 


a: 


5¢ 
oc 


3¢ 


F4 
08 


000000006 


OE 
FEE 


08 
08 
08 


04 
O1FF 
04 


0200 
4 


5C 
oc 


3¢ 


COWBO"DOOOOMA WM NON "A —ODOOrWAS VM VOOoOmMmo—mmon 


FOV IAVYVNP OFOFPOP EP ONO POWWN0 SP DOOOMMP UNM NPWP IP w 


—Mmmoo™mommny 


w>n 


OOfDLOVEDIOSO LF O-TDOIVWMOOOPMFLSVI FON 


ono -C00°9O prs bd oy Mp ob bP > Sry MFO SINUS MOCO ONOW 


fSoyp-wooFf— 


3c 


10 
1a-Se -1984 00:03: AX-11 Bliss-32 V4.0-742 
1o-ge8= 1382 90:03:32 YBACKUP SRe JOURNAL .832;1 
154 MOVZWL #512, =(SP) 
159 PUSHL JOUR BUFFER 
15¢ CLRQ.  =(SPY 
1 F SHAB 1058 
16 PUSHL #4 
163 PUSHL  12(FAB) 
166 CLRL. = (SP) 
16 CALLS #12, SYS$QIOW 
168 MOVL STATUS 
166 BLBC STATUS, 11$ 
1 MOVZWL 10SB, STATUS 
123 BLBS TUS, 13$ 
178 11$: mova » CSP) 
178 PUSHL 
0170 CALLS #3, FILE_ERROR 
018 BRB 
ane 12$:  movcS #0, (SP), #0, #512, QJOUR_BUFFER 
0188 CLRW JOUR_FFBYTE 
0018E 138: C #1, GUAL411, 148 
00194 PUSHL FAB 
0196 PUSHL ACKUP$_ JOURNAL 
0019¢ CALLS #2, FILE-ERROR 
O19F 14$:  CLRB JOUR COUNT 
O1A2 PUSHAB S$TRUC_RECORD 
01A6 PUSHL 
0018 CLR -(SP) 
OO1AA ALLS #3, WRITE_RECORD 
OO1AF RET 
90180 15$:  MOVB REVERSE, JOUR_REVERSE 
0185 BLBC REVERSE 
00189 MOVL § JOUR_EFBLK, JOUR_INBLK 
0018D MOV YOUR FFBYTE, JOUR_INBYTE 
001¢2 BRB 178 
001C4 16$:  CLRL § JOUR_INBLK 
001¢7 MOVW #5117 JOUR_INBYTE 
001¢D 17$:  MOVL  JOUR_INBLK? RO 
0101 BEQL 19$ 
00105 HPL RO, JOUR_HIBLK 
010 BcTRU 19$ 
0109 CLRQ = = (SP) 
0108 CLRL = =< SP) 
0100 USHL 9 
O1DF MOVZ2WL #512, -(SP% 
164 PUSHL JOUR BUFFER 
O1€7 CLRQ.  =<(SPY 
0169 PUSHAB 10SB 
QiEC PUSHL #49 
TEE PUSHL 12(FAB) 
1F CLRL. = (SP) 
1F3 CALLS #12, SYS$QI0W 
16g MOVL RO STATUS 
1F BLBC STATUS, 18$ 
1FC MOVZWL 10SB, STATUS 
99 BLBS STATUS, 1 
0203 18$: v0 FAB, -<SP 
0206 PUSHL R11 


ree 


é 


oOnw 


— ae ee a et 
Ba Aa SEF 
pac A ol 


& 
a 


eg 


WOOO 


$2 900060 SI 


ee ee a es 


1905 


1910 
1909 


——-— 


yO2-000 SPER JOURNAL =“oeee journal file if-te ets aS a CYC tg RTL Ee Page 


69 03 fe O ooene CALLS #3, FILE_ERROR 3 
0208 19$: RET 3 1914 


; Routine Size: 524 bytes, Routine Base: CODE + O000C 


10 
J Journal file manager 1beSe -1984 00:03:32 AX-11 Bliss-32 V4.0-742 
YOu-000 CLOSE_JOURNAL = close journal file 14-Sep-19 4 9:03:22 YBAcKUP.SRe JOURNAL .B32; 1 
: 1915 1 ZSBTTL ‘CLOSE JOURNAL = close journal file’ 
; 365 1318 ! GLOBAL ROUTINE CLOSE_JOURNAL (OUTPUT): NOVALUE= 
2 ee eee 
; e3 13 0 1 ! FUNCTIONAL DESCRIPTION: 
$ 4 + 1 : This routine closes the journal file. 
; i 19 g 1 | INPUT PARAMETERS: 
: 37 1924 1! OUTPUT - True if the journal file is being written, false if 
3 a 13 5 : } being read. 
: us 19 $ 1} IMPLICIT INPUTS: 
3 Ag + 3 : QUALCQUAL_JOUR_FC] - Pointer to FAB for journal file. 
: 379 1930 1 ! OUTPUT PARAMETERS: 
BB 2] alte 
; Q 1988 1 | IMPLICIT OUTPUTS: 
nt 1988 1 | _— 
; 385 1936 1 ' ROUTINE VALUE: 
BP 4 Fh ae 
: 388 1939 1! SIDE EFFECTS: 
: 389 1940 1 NONE 
: 390 1941 1: 
: 393 198 
: Bi 1968 3 tocat 
: 395 1946 FAB: REF BBLOCK, ! Pointer to FAB for journal file 
; 396 1947 2 STATUS, ' Status variable 
: 397 1948 10SB: VECTORE4,WORD], ' 1/0 status block 
: 398 1949 ATR_DESC: LOCK i ACP attributes List 
; 399 1950 RECATTR: BBLOCK FATSC_LENGTH); ! Record attributes area 
= ee: 
: 40 1988 FAB = .QUALCQUAL_JOUR_FC); 
. 
: 405 1956 ! Write the last buffer if required. 
: 409 1958 if .OUTPUT 
: 608 195 THE 
3 ret 4 BEGIN 
: 411 1968 ! Write structure-level record. 
: t18 1964 WRITE_RECORD( 
3 414 1965 BILS$K_STRUCLEV, 
+ 415 1966 BJLS$C~STRUC_LEN, 
: 416 1967 STRUC RECORD); 
; 417 1968 WRITE_BYTE(. JOUR_COUNT); ! Final byte count 
: 619 1970 
; 420 1971 ' Write last buffer. 


"See eee 21° oer 


i 
i 
454 
455 
456 
457 
458 
459 


vuvv 


Journal file manager ep-1 2 
CLOSE_JOURNAL - close journal file $73 set 99: 3: 3 
1338 URITE BLOCK() 

1352 i 

1975 

1308 } Generate record attributes. 

197 EHSFILLCO FATSC_LENGTH, RECATTR); 

1998 RECATIR ATSB _RTYPE = fal C_FIXEO; 

19 0 RECATTREFATSW_RSIZ : 

1981 R EATTR FATSL-HIBLK) = ROT(.JOUR_HIBLK, 16); 
19 ‘ ¢ FATSL-EFBLK] = ROT(.JOUR-EFBLK, 16); 
19 FATSW_FFBYTE) = .JOUR_FFBYTE; 

1984 RECATTRLFATSW_DEFEXT = .JOUR-EXSZ ; 

1356 : Write record attributes. 

1988 Arr DESC 29-1 ‘ €:9 = ATRSS RECATTR: 

1989 ATR-DESC(2,0,16,0] = ATRSC_RECATTR; 

199 ATR “pescts &°0" ; fess, 

199¢ Serout’ 

199 "Fone =]0$_DEACCESS 

1994 FABCFABSL_STv), 

1995 1988: S=i0s8 

1996 R_DESC) 

199 IF StAtUs THEN iratus = .10S8(0); 

1998 IF NOT .STATUS 

1999 N 

000 FILE_E 

001 BacKOrs _WRITEATTR, 

008 FAB 

00 “STATUS); 

004 END; 

005 

a 

st : Deassign the channel. 

$b08 : SDASSGN(CHANS. FABLFABSL_STV)); 

2010 1 END 


AX=11 Bliss-32 V4.0-742 
BACKUP. SRC JJOURNAL 832; 1 


-EXTRN SYSSDASSGN 


OOFC 00000 .ENTRY CLOSE JOURNAL, Save R2.R3,R4,.R5.R6,R7 
57 00000000' ef 2 90008 ROVAR QUAL+52, R7 
36 67 D 999¢ MOVL  QUAL+52, FAB 
. ” 0089 51 iit Bau ss 
FDOCE F fF 318 18 PUSHAB STRUC_RECORD 
2 DD OOOIA PUSHL 
D4 gic CLAL sf P) 
0000v cr 03 FB 0001 CALLS WRITE_RECORD 
E 0232 9A 6 MOV ZBL 530 COUN NT, =(SP) 
0 OOv CF 1 FB 00 CALLS #1, QRITE_BYT 
OOv CF 0 FB 0002D CALLS #0, WRITE~BLOCK 


Journal file manager 


20 00 


000000006 


000000006 
000000006 


; Routine Size: 170 bytes, 


CLOSE JOURNAL = close journal file 


Routine Base: 


1% 
18 
6E 00 2c $ movcs 
6E i 38 MOVB 
ag 1 8 MOVW 
C C F ROTL 
C7 10 9 46 ROTL 
AE C7 8 ri MOVW 
AE 4 ? BO 0005 MOVW 
AE 00040020 F 3 10059 MOVL 
AE 6E 9E Bees MOVAB 
28 AE 04 00065 CLRL 
7E 04 BRe8 CLRL 
24 «AE OOF 6A PUSHAB 
7E 7C 00060 CLRQ 
7E 7C Beoo, CLRQ 
7E 7C 00071 CLRQ 
54 AE 9F 00073 PUSHAB 
34 0D 30878 PUSHL 
OC A6 DD 0007 PUSHL 
7E 04 00078 Bits 
00 C 44 0070 ALLS 
of 0 3 oon? BLBC 
0 34 af C sig MOVZWL 
11 50 €8 000 BLBS 
50 0D 43 2s PUSHL 
56 DD 000 PUSHL 
000000006 8F DD 0009 PUSHL 
00 03 FB 0009 CALLS 
OC A6 DD OOO9F 3% PUSHL 
00 01 FB OO0A2 CALLS 
04 000A9 RET 
CODE + 0218 


“3e01964 90:05:52 


AX=11 Bliss-32 V4.0-742 
BACKUP. SRC JJOURNAL .B32; 1 


- (SP), #0, #32, RECATTR 
» RECATIR 

RECATTR+2 

ne JOUR TaTBLK, REEATIRed 
n18. JOUR” EFBLK RECATTR¢ 
JOUR_FFBYTE R+12 

J “E81 RECATIRGTS 
#262776, ATR_DES 

RECATIR: | his DESC +4 


STATUS 


#BACKUPS_WRITEATTR 
#3, FILE-ERROR 


( 
#1, SYSSDASSGN 


$ 
_~ 
en 
-o 


BeBe Se Se Ge Se Se Se Se Se Se Se Se Se Fe Ge Se Fe Ge Fe Se Se Se Ge Se Ge Se Se Fe Be Se 


| 
| 
| 
| 


11 

Journal file manager 18-Se -1984 00:03:32 Ax-11 Bliss-32 V4.0-742 Page 21 

WRITE_BLOCK = write a block to journal 1e-8ep-19 4 99:03:82 EBACKUP SRE JOURNAL .832;1 . (8) 
; 461 011 1 SSBTTL "WRITE BLOEE = write a block to journal’ 
; 46 Big 1 ROUTINE WRITE BLOCK: NOVALUE= 
; 46 135 (1 
3 464 014 1 !44 
; 465 015 1! 
; o68 b18 1 ! FUNCTIONAL DESCRIPTION: 
; 46 017 1! This routine writes a block to the journal file, extending it if 
; 468 818 . 3 necessary. : 
: 469 019 1! 
; 470 020 1 ! INPUT PARAMETERS: 
3 471 021 1! NONE 
; $f6 8 ¢ 1! 
3; «47 1 ! IMPLICIT INPUTS: 
3; 476 024 1! NONE 
; 475 025 1! 
; 476 0 $ 1 ! OUTPUT PARAMETERS: 
: 477 0 1! NONE 
: 4478 2028 1! 
, 479 - 029 1 ! IMPLICIT OUTPUTS: 
: 480 030 1! NONE 
3; 481 32 1! 
; re 0 § 1 ! ROUTINE VALUE: 
; 48 th 1! NONE 
> 484 2034 1! 
; 485 2035 1 ! SIDE EFFECTS: 
: 486 2036 1! NONE 
; 487 2037 1! 
; 488 soee 1 !-- 
3; 489 039 1 
: 490 2040 BEGIN 
; 491 2041 LOCAL 
3; 492 Oe§ FAB: REF BBLOCK, ! Pointer to FAB for journal file 
: 493 204 STATUS, ' Status variable 
3 4946 2044 10SB: VECTORC4,WORD), ! 1/0 status block 
> 495 2045 | FIB: BBLOCKCFIBSC_LENGTHJ, ! FI | 
: 496 2046 2 FIB_DESC: vector(2); ! Descriptor for FIB | 
3; 497 047 | 
; 498 048 
; 499 049 ' Find the FAB. 
; 500 050 : 
; 501 2051 2 FAB = .QUALCQUAL_JOUR_FC); 
F 206 Ba6 
: 50 05 7 ; 
3 3o¢ Bee : If there is insufficient space in the file, extend it before writing. 
; 506 628 IF .JOUR_HIBLK LSSU .JOUR_EFBLK 
; 44 5 THEN 
: 508 058 BEGIN 
3 298 059 FIB_DESC 9 = FIBSC_LENGTH; 
3; 510 060 Fie DESCL1) = FIB; 
3 511 061 CHSFILL(O, FIBSC_LENGTH, FIB); 
: 21¢ be8 eLOEE IBSV EXTEND! = TRUE; 
; 51 06 FIBCFIBSL~EXS2) = .JOUR_EXS2; 
5 14 P 2064 STATUS = so 10ue 
: 515 P 2065 FUNC=I0$ MODIFY, 
: 16 P 206 CHAN=.FABCFABSL_STVJ, 
: $1 P 206 10S8=10SB, 


c. 11 
16-Sep-1984 


JOURNA’ Journal file man :03:32 AX-11 Bliss-32 V4.0-742 p 
Vv “000 WRITE_BLOCK = arite. a block to journal 14-Sep-1984 90:03:32 BACKUP. SRCJJOURNAL.B32; 1 — Asa 
; 18 068 P1l=F1B_DESC) 

: 51 $ IF .STATUS"THEN STATUS = .10S8(0]; 

3 0 0 IF NOT .STATUS 

: 1 71 THEN 

; g oe FILE_ERROR( 

; ? Bi? BACKUPS_WRITEERR + STSSK_SEVERE, 

; 5 075 *STATUS); 

3 2 $ 076 JOUR. HIBLK = .JOUR_HIBLK + .FIBCFIBSL_EXSZ); 
3 8 14) 

3 9 y 

s 0 } Write the block. 

; 1 081 

: ¢ Pp Oe ératus = $010w< 

: P 208 FUNC=10$ WRITEVBLK, 

3 534 Pp O86 -FABLFABSL_STVJ, 

; 2 ; p Sb Piz.J =i0s BUFFER, 

3; 537 Pp OBy P2= gu 

Ee | 088 P3=., JOUR 

: 539 089 2 IF .STATUS TREN OL aius = .10SBC0); 

; 540 090 IF NOT .STATUS 

3; 541 091 THEN 

; 24@ 09 FILE_ERROR( 

: 54 09 BACKUPS_WRITEERR + STSS$K_SEVERE, 

: 5446 2094 

:; 545 095 STATUS); 

; 546 096 1 END; 


O7FC 00000 WRITE_BLOCK: 


<c 


“WORD Save R2. R3,R4,R5,R6,R7,RB,RI,R10 : 2012 
SA 999000006 00 9E 00002 MOVAB FILE_ERROR, R ; 
59 0 9 0006 8F 00 00009 MOVL #BACRUPS $_WRITEERR+4 R9 ; 
58 00 000006 00 9€ 00010 MOVAB SYS$QI : 
57 00000000 EF 9E 00017 MOVAB JOUR te R? ; 
5e B0 AE 3 0001 MOVAB =80(SB). SF ; 
56 FDEO C7? 00 000 MOVL  QUAL+5 ; 
04 A7 67 01 000 CMPL OUR *Aféue 8 OUR _EFBLK F 
4E iE 900 B BGEQU ; 
6E 40 8F 9A 00020 MOVZBL #64, FIB_DESC ; 
04 AE 08 AE 9E 00031 MOV pis. f FIB-DESC +4 : 
6E 00 2C¢ 000 MOVC (SP)> #0, #64, FIB : 
08 AE 0030 j 
If AE 80 BF 003F BISB2 #128, FIB+2 ; 
20 AE 14 A? 3C 00044 MOVZWL JOUR’ EXSZ, FIB+24 : 
7E 7C 6 49 CLRQ (SPT ; 
7E 7C 00048 CLRQ  —_ = (SP) ; 
7E D4 D CLRL (SP) : 
14 AE 9F OODGE PUSHAB F1B_DESC ; 
7E 7 Oe CLRQ = (SP) ; 
68 AE 9F 00054 PUSHAB 10SB ; 
36 DD 00057 PUSHL #54 : 


11 


| SoyRRA. Journal file manager 1B-5ep-1 4 90:03:32 ort OL hag 3e V4.0-742 Page ie 


— 
—n 


WRITE BLOCK = write a block to journal -Sep-1984 BACKUP. SRC JJOURNAL .832;1 


0¢ a6 DD 00059 PUSHL  12(FAB) ; 

7E D4 3 CLRL si sP) : 

F E CALLS #12, SYS$Q10W ; 

DO 00061 MOVL RO, STAT ; : 
: 064 LBC TATUS 3 2069 | 
48 AE 3¢ 00067 MOV2WL OSB, STATUS ; | 
2 E 6B BLBS STATUS, 2$ t 2070) 
D $ 1$: PUSHL STATUS : 2075, 
26 DD PUSHL F + 2074 | 
9 DD 07 PUSHL RY : 2073 

6A 03 FB 0074 CALLS #3, FILE_ERROR : 
67 20 AE g 077 as: ADDL2 £16+24, JOUR_HIBLK + 2076! 
7E 7C 00078 3$: CLRO. = =( SP) : 2088 | 
7 D4 0007D CLRL = = (SP) : 
A BD 0007 PUSHL JOUR_EFBLK : 
7E 0200 8F 3¢ 0082 MOVZWL #5127 -(SP) : 
A7 BD 000 PUSHL JOUR BUFFER : | 
7E 7C OOO8A CLRQ.  =(SPY : | 
68 AE SF 0008C PUSHAB 10SB : | 
30 DD O008F PUSHL #4 : | 
0c Ab DD 00091 PUSHL  12(FAB) ; 
7E D4 00094 LRL. -=(SP) : | 
68 OC FB 0096 CALLS #12, SYS$Q10W : | 
07 2 £9 0009¢ LBC STATUS, 4$ + 2089) 
52 48 AE ¢ 0009F MOVZWL 10SB, STATUS ; | 
09 52 E8 OOOA3 BLBS STATUS, > 2090. 
52 DD DO0AG 4$: PUSHL STAT : 2095 
56 DD OOOA PUSHL + 2094 | 
59 DD OOOAA PUSHL 9 > 2093 | 
6A 03 FB OOOAC CALLS #3, FILE_ERROR : 
04 OOOAF 5$: RET > 2096 | 


; Routine Size: 176 bytes, | Routine Base: CODE + 02C2 


11 
anager bese -1984 00:03: AX-11 Bliss-32 V4.0-74 
rite 6 byte to the journal file a at 1h 90:03:32 YBACKUP SRE JOORWAL “Boost at (BS 


JOURNA’ Journal file m 
VOe-000 WRITE_BYTE = w 

4 097 SBITL ‘"WRITE_BYTE = write a byte to the journal file’ 

‘3 0 OUTINE WRITE7BYTE (VALUE): NOVALUE= _ 

1 'e4 

: is routine writes one byte to the journal file. 

§ i INPUT PARAMETERS: 

5 : VALUE - Value to be written. 

59 


i IMPLICIT INPUTS: 
! QUALCQUAL_JOUR_FC] = Pointer to FAB for journal file. 


i OUTPUT PARAMETERS: 
i NONE 


i IMPLICIT OUTPUTS: 
i NONE 


PUPTSIVSISISISIVIVIT 


SNS NNN SOOO 


t 

T 

% 

R 

! 

' 

| FUNCTIONAL DESCRIPTION: 
' 

' 

' 

i] 

' 

! 

' 

' 

' 

' 

' 

i ROUTINE VALUE: 
; NONE 

i SIDE EFFECTS: 
NONE 

' 


1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 BEGIN 
! If there is insufficient space in the current buffer, write it and initialize 
! another. 


if .JOUR_FFBYTE GEQU 512 
THEN 


SS eSess 


. JOUR_BUFFER); 
UR_EFBLK + 1; 


se © 


: Write the byte into the buffer. 


JOUR_BUFFERC.JOUR_FFBYTE) = .VALUE; 
JOUR_FFBYTE = ,JOOR_FFBYTE + 1; 


FANLESELE 


a ee et ee a ee ee ee a De ae ad ad a 
i=) ooo 


BES SE FANNIN PIDIPI NIPPON DY = OS OOD 


DUP DVIVDVLIV DV DVDVIV DUST SUSTST SUSI SISISTISIUIO 


oe 
w 


007C 00000 wRITE_BYTE: 


Bp emroomns 35 Ben 


R5,R6 ; 2098 


* e 
MOVAB JOUR : 
0200 CMPW JOUR 12 ; 2130 


tet writ a a byte to the journal file Lot 99: 93: if BACKUP Shed JOURNAL B41 es rsd 


FF3B OC 09 if b rates i WRITE_6 : 2133. 
0200 aF 00 gf cc | (0 Be 13 MOV ; #0, (SP), a ae #512, @JOUR_BUFFER : 313 
Fs Ad D : INCL  JOUR_EFBLK : 2135 

66 : CLRW JOURTFFBYTE : 21 
50 66 ¢ 3 1$: MOVZWL JOURFFBYTE, RO + 2142. 
0 FC Ab 0026 ADDL2 JOUR-BUFFER. RO : 

60 4 ac 90 8 A MOVB VALUE, (RO) : 
66 86 000 3 INCW © JOUR_FFBYTE ; 2143 
4 000 RET 


144. 
; Routine Size: 49 bytes, Routine Base: CODE + 0372 


JOURNA Journal file manage 1g-44 4 AX-11 Bliss-32 V4.0-742 P 6 
yO4~000 WRITE_RECORD = write a record to the journal fi 132300- 1386 99: 93: 3 BACKUP. SRC JJOURNAL .832; 1 ee (3 
; $97 145 1 XSBITL "WRITE_RECORD = write a record to the journal file’ 
4 a8 148 : ROUTINE WRITE- RECORD (TYPE LENGTH. ADDRESS): NOVALUE= 
; oR 168 1 !e4 
3 1 149 1! 
3 ope 150 1! deeds DESCRIPTION: 
: yet } 1 ! } This routine writes a record in the journal file. 
3; 605 1 ; 1 ! INPUT PARAMETERS: 
3 BS 154 1! TYPE - Record type. 
; 60 155 1! LENGTH = Length of data portion. 
3 ope ; $ : } ADDRESS - Address of data portion. 
; 610 1 8 1 ! IMPLICIT INPUTS: 
; 61 15 1! NONE 
; 61 160 1! 
; 61 161 1 =! OUTPUT PARAMETERS: 
: 614 166 1! NONE 
: 615 165 1! 
3; 616 164 1 ! IMPLICIT OUTPUTS: 
3 617 165 1! NONE 
; 618 166 1! 
3; 619 167 1 ! ROUTINE VALUE: 
; 620 168 1! NONE 
3; 621 169 | ! 
$ © ¢ 170 ' SIDE EFFECTS: 
; 6 ime NONE 
3 624 1% 1! 
3; 625 173 1 !=- 
3 $36 174 «1 
: 175 BEGIN 
; 628 2176 P 
: $¢? 2177 ADDRESS: REF VECTORC,BYTE); !' Pointer to record 
a aR 
$ O36 180 WRITE_BYTE(.JOUR_COUNT XOR (.LENGTH + 1)); soe byte count 
3; 633 13 WRITE -BYTE(. TYPES; e¢ code 
: 634 196 INCR T FROM 0 TO ae DO WRITE_BYTE(. ADDRESSE. Y 
3; 635 gg JOUR_COUNT = .LENGTH ¢ 1; 
3; 636 2184 END; 
003C 00000 WRITE_RECORD: 
WORD Save R2,R3,R4,R5 : 2146 
55 CA AF 9E 00002 MOVAB WRITE BYTE. R5 ; | 
54 00000000' FF 9E 00006 rt ty JOUR COUNT, R4 3 
53 08 AC 1 3° ADDL #1, CENGTH, R3 : 2180 
50 $ A MOVZBL are §° UNT, RO : 
7E 30 3 CD 0001 XORL (§p) : 
6 01 FB 00019 CALLS CRITE. “BYTE ; 
04 AC OD Bi PUSHL - 3; 2181 
$3 1 EE 0002 wneGe wee S o182. 
08 ‘f 8038 BRB 2$ : 


3 
, JOUR. T eoUNT 


oc BCae 7 1%: MOVZBL at URITE ote =(SP) 
é§ fae a CALLS 
64 


08 f 2$: AOBLSS LENGTH is 
iy 


; Routine Size: 56 bytes, Routine Base: CODE + 03A3 


¥Ou-000 Uni TE RECORD . “write a record to the ven fi 1b-te $071 38e 99: 93: f BACKUP’ SRE TJOURNAL 85301 


11 
R ‘ = = 4 $ 7 7 s Cy 
Youn 000 Ui Te soon Ssmane write save set name to jour 1b-ben-1984 90:93:32 Yer chup Re saOGRWAL Boost —— Be 
5 


ZSBTTL ‘WRITE JOUR_SSNAME = write save set name to journal’ 


BIL$K_SSNAME 
SBYTEOFFSET(BJLST_SSNAME) + .COM_SSNAMECDSC$W_LENGTH), 
END Our FER): 


s 1 1 

3 o78 1 $ ! GLOBAL ROUTINE WRITE_JOUR_SSNAME: NOVALUE= 
3; 641 1 1 !e¢ 

3 ong 1 1! 

; 64 190 1 ! FUNCTIONAL DESCRIPTION: 

s ae 13) ; This routine writes the save set name record in the journal file. 
3 one 138 1 ! INPUT PARAMETERS: 

3; 64 196 1! NONE 

: Bs 198 1 i IMPLICIT INPUTS 

3 $50 139 a JPI_DATE - Current date 
: $2) 138 : } COM_SSNAME - Save set name 
: $26 00 1 ! OUTPUT PARAMETERS: 

: 654 01 1! NONE 

; 655 O¢ 1! 

3 626 0 1 ! IMPLICIT OUTPUTS: 

; 65 06 1! NONE 

; 658 05 1! 

3; 659 soe 1 ! ROUTINE VALUE: 

; 660 - = NONE 

: 661 08 7! 

$ 666 09 1°! SIDE EFFECTS: 

3 | sg NONE 

: 664 $1) 1! 

: 665 \¢ 1 !<- 

: 666 213 (1 

3; 667 sié BEGIN 

: 668 15 LOCAL 

; 444 6si¢ BUFFER: BBLOCKCBJL$C_SSNAME_LEN]; ! Area to build record 
3 671 218 

3 $7 si Assemble the record. 

3; 674 331 (BUFFERCBJL$SQ_CREDATE]) = .JPI witty 
3; 675 § (BUFFERCBJL$Q_CREDATEJ+4) = . JPI_DATE 1); 
3 ore $$ CHSMOVE ( 

; 67 224 . COM_SSNAME CDSC$W_LENGTH) 

: 678 225 . COM” SSNAMELDSCSA POINTER], 

3 e?° § § BuF FERCBJLST_SSNAME 3 

3; «4681 § $ 

; 6 ! Write the record. 

; 68 230 ! 

; 6 231 WRITE_RECORD( 

3 $36 

3 r4 

3 234 

3 2355 1 


007C 00000 -ENTRY WRITE_JOUR_SSNAME, Save R2,R3,R4,R5,R6 ; 2186 


yOe~000 URI TE JOUR SSNAME ® write save set name to jour ib}e $07 1882 99: 93: 3 BACKUP SRES ToGRNAL BSos1 


26 00000000" €—F 9 oN ¢ ~SSNAME, R6 
4 ¢ put. #36. ont 
FE74 6 D 5 USHL ate 
gs AE FE78 86 B 1 MOVL SPI “DAT +4, BUFFER+ 
08 AE B6 96 016 MOVC3 COM_SSNAME, aCOM_ SSNAME +4, BUF FER+8 
Be 31 PUSHL SP ~ 
7E 8 5 001 MOVZWL COM tees -(SP) 
6E CO 000 ADDL2 #8," ( 
01 OD B88 fs PUSHL #1 
9E AF 03 FB 00026 CALLS #3, WRITE_RECORD 
04 0002A RET 


; Routine Size: 43 bytes, Routine Base: CODE + 0308 


| 
| 


K 11 
al file manager 16-Sep-1984 00:03:32 AX-11 Bliss-32 V4.0-742 Pp 0 
OUR. VOLUME = write volume ID record to j 12=868-1 383 99:03:82 BACKUP. SRC JJOURNAL .B32; 1 et (a 
ZSBTTL ‘WRITE JOUR VOLUME = write volume ID record to journal’ 

GLOBAL ROUTINE WRITE_JOUR_VOLUME : NOVALUE= 
'¢ 


33 


+ 


FUNCTIONAL DESCRIPTION: 
This routine writes the volume identification record 
in the journal file. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
RWSV_VOLUME ID = Current volume Label 
RWSV_VOL_NUMBER = Current volume number 


IMPLICIT OUTPUTS: 
NONE 


PIPOITOPOPIPINIPIPIPUPINPIPIPIPIPIPINIPUPONINININIPIPUAINOTD 
PREPPED AAA & BEE SSeS 
WO OONAUE WN “OOO NOUS WN —O0OW 


' 

' 

1 

i OUTPUT PARAMETERS: 
; NONE 

a 


NAVA AAA AVVASSSSSSSSSs 
BSSRIE ARAN OSLO ISON 33 
RRPoROnoRononorononononononononononononunononorononunonunonuny 


4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 BEGIN 


7 

7 

7 

70 

71 

ar ROUTINE VALUE: 

71 NONE 
714 

715 SIDE EFFECTS: 

rig NONE 

71 

718 64 - 

719 $0 

720 $6 
721 26 LOCAL ; 
sé $508 BUFFER: BBLOCKCBJL$C_VOLUME_LEN]; ! Area to build record 
13 6570 
725 71 ! Assemble the record. 
136 ¢ ! 
727 7 CHSCOPY ¢ 
res a EM LOCAT LON CRUSY VOLUME 10). RWSV_VOLUME_ID, 
3 27 Biss VOLNAME , BUF FERCBJL$T_VOLNAME}); 

731 $77 BUF FERCBJCS$W_VOLNUMBER] = .RWSV~VOL_NUMBER; 

7 § 79 

7 80 ! Write the record. 

3 81 ! 

7 $B6 WRITE _RECORD( 

737 28 BIL SK _VOLUNE. 

738 284 BJLSC_VOLUME_LEN, 

739 285 BUFFER); 

740 286 END; 


003¢ 00000 ENTRY WRITE_JOUR_VOLUME, Save R2,R3,R4,R5 : 2237 


1 
VOL-000 uRitess OUR-VOLURES=” ~ write volume ID record to j if deo-1 98s 9:93:32 BACKUP Sh ne souRNAL (85301 
0 SUBL 
 womnge HE noone: fF He fae BE; Reve pee 

0013 PUSHL SP 

Bi | Ree 
FF7D =F 0 7} 8 00018 CALLS ‘3, WRITE RECORD 
04 00020 RET 


; Routine Size: 33 bytes, Routine Base: CODE + 0406 


——, 


— eee ee a —— 


. INPUT _NAMCNAMSB_DIRJ-2, ,INPUT_NAMCNAMSL_DIRJ+1, 
BJLSC_DIR_LEN, JOur_D1RE13, 


P ! Temp > 
REC_LENGTH; ! Length of directory record 


: Establish the XOR of the new and old directory strings. 


iNCR I FROM 0 TO .INPUT_NAMCNAMSB_DIRJ-2-1 DO 
JOUR_DIRC.1+1) = .JOUR Dine 181 XOR 
“VECTORC. INPUT_NAMCNAMSL_DIRJ+1, .1 ;,BYTE); 


~“ 
oo 
_ 
PIP AAAN AAA NIAAA AIA AAAI AI AIA 


PEW 
wnr—oo 


"11 
J Journal file manager 16-Sep-1984 00:03: AX-11 Bliss-32 V4.0-742 Pa 2 
y0e-000 WRITE _JOUR_FILE ~ write file name record to jou 13280871382 99:03:32 YBACKUP. SREIJOURNAL 83251 9495 
3 rg 1 ZSBTTL ‘WRITE JOUR_FILE = write file name record to journal’ 
: oe : GLOBAL ROUTINE WRITE _JOUR_FILE ( HEADONLY ) : NOVALUE= 
see aya 
; re 3% 1 | FUNCTIONAL DESCRIPTION: 
3; 74 935 1! This he phe writes the file name record (and directory name record, 
$ re 3¢ : H if required) in the journal file. 
; g 1 % 1 i INPUT PARAMETERS: 
: § or 1g HEADONLY - Flag specifing if the file is marked as NOBACKUP 
: g ? 4 ' } and therefore only the file header is saved. 
: 755 00 1 i IMPLICIT INPUTS: 
3 P38 Oe : : INPUT_NAM - File specification in resultant string 
: 758 03 1 | OUTPUT PARAMETERS: 
g rg 06 1! NONE 
3; 760 05 1! 
3; 761 06 1 ! IMPLICIT OUTPUTS: 
3; 76 07 1! NONE 
; 76 08 1! 
; 764 09 1°! ROUTINE VALUE: 
3: 765 10 1! NONE 
; 766 7 2s 
3; 767 \¢ 1 ! SIDE EFFECTS: 
; 768 1 1! NONE 
: 769 1% 61: 
: 59 | 
; a " BEGIN 
: 77% 19 2 LOCAL 
3; «775 20 NAME_LENGTH : WORD , 
3 ai $! REC_BuFF : VECTOR CBJLSC_FILE_LEN,BYTE] ; ! Record buffer 
: re 38 : Write the directory record if necessary. 
: 780 5 if CHSNEQ( 
; : 
3 9 
$ 0 
x 
3 
; 8 


! Strip leading rutls from the XOR. 


N11 
Pee crite file name record to jou 12-8681 382 99:03:32 YekcKuPe sre JOURNAL BSoe1 Page 433 
' 


Fe 
Ss 
22 
m3 
S- 


P = CHSFIND_NOT CH(BJLSC_DIR_LEN, JOUR_DIRC1], 0); ! Find non-null 
i ~PoegL THEN P = SOUR DIRE TI: ‘"Entire string is nul | 
( 


. 1; ! Point to previous byte 
-P)<0,8> = .P = JOUR_DIR(O); ' Set count of leading nulls 


trip trailing nulls from the XOR. 


$ 
EC_LENGTH = 1; 
ECRA Q FROM JOUR_DIRCBJL$C_DIR_LEN] TO .P+1 DO 


=m 
=——-O 


EG 
IF .(.0)<0,8> NEQ 0 
HEN 


BEGIN 
REC LENGTH = .Q = .P + 1; 
EXITLOOP; 


4 
4 
; 
4 EN 
END; 
} Write the directory record. 
WRITE_RECORD( 


SN NIO OO 


PAEAXPEAED MAMI 


BILSK_DIRECTORY, 
‘ CENGTH, 
Save the new directory string. 
CHSCOPY ( 

. INPUT_NAMCNAMSB_DIRJ=2, .INPUT_NAMCNAMSL_DIRJ+1, 


‘ BILSC_DIR_LEN, JOUR_DIRC1}); 


ANN 


: Compute length of name, extention etc. 
NAME_LENGTH = .INPUT_NAM NAMSL RSA} + 

. INPUT“NAMCNAMSB_RSL) = 

- INPUT_NAMCNAMSL_NAME) ; 
} Move the name string into local buffer 


CHSCOPY ( .NAME_LENGTH, .INPUT_NAMCNAMSL_NAMEJ, XC° °, 
BJLSS-FILENAME, REC_BUFF) ; 


Concatenate the flags to the end of the name 
BEGIN 
8 


IND 
FLAGS = REC_BUFFC.NAME_LENGTH] : LONG ; 
A »HEADONLY 


N 
FLAGS = BJLSM_HEADONLY 
ELSE 


(09 Cd Cd GD Od Cd Od Co GO OD Gd CD GD CD GD CD CD CD 
BISA UY—-SS 


FELELEA 
MFWwN—OO0 


Be Se Ge Se Fe Se Se Ge Se Se Ge Fe Ge Se Ge Se Se Se Ge Fe Fe Ge Se Ge Fe Fe Se Se Se Ss Ge Se Ge Se Ge Se Se Ge Se Ge Se Se Se Se Se Se Se Se Ge Se Se ee Ge Se Se Ste 
+4 (09 C9 GD CD CD OD CD CD CD CD CD OD CD CD CD CD OD: 
SF PMIPMIPINININININID 2 2 SO OS 3 
ot SNSNEWV SODNAAEWUUMODS UF ARGS 
PIPIPINIPOPIPIPIPINIPOPIPIPIPYINIPPINPIPIPOPIPIPIPPIPUPIPONINPPUND 
WN. ANNAN AAAI 


MEW —O OW 


ROPIPIPIPIPINIMPAIMYNINININININININININININININD 


Mn 


12 
JOURNA Journal file manager 1hes8 -1984 :03:32 AX-11 Bliss<-32 V4.0-74 P 4 
yOu=000 URITE JOUR-FILE ="write file name record to jou 1e-sep-19RG $iinsise  Fancudeetdes sacevac ase) age 13) 
; 8 401 FLAGS = 0; 
; 3? 108 END; 
: 9 404 ! Write the file record. 
; 860 405 i 
; 861 406 WRITE_RECORD( 
: 86 40 BILSK_FILE 
: B6 408 . NAME LENGTH ‘4, 
: B64 g40 REC_BOFF ) ; 
; 865 410 END; 
OOFC 00000 .ENTRY WRITE_JOUR_FILE, Save R2,R3,R4,R5,R6,R7 : 2288 | 
57 00000000" EF 9€ 90008 MOVAB INPUT-NAM,~R7 : 
SE FF7C CE 9€ 0000 MOVAB <-132(SP), SP : 
50 67 DO O000E VL. ——sINPUT_NAM, RO t 2326 
56 3A AO 9A 00011 MOVZBL 58(ROJ, R6 : 
56 02 C2 00015 SUBL2 ge R6 : 
55 48 AO DO 00018 MOVL  72(RO), RS : 
54 0180 C7 DO 9001¢ MOVL. JOUR_DIR, R4 : 2327 
OOFF 8F 00 01 «AS 56 2D 00021 CMPCS R6, T(R5S, #0, #255, 1(R4) : | 
01 AG 90089 : | 
74 13 00028 BEQL 8$ : | 
50 01 CF 900¢0 MNEGL #1, I : 2338 
07 11 00030 BRB ; | 
01 A044 01 A540 8C 00032 1$: XORB2- 1(R5)C1J, 1¢1)CR4) : 2340. 
FS 5 56 F2 00039 2$: AOBLSS R6, I, 1 : 2339. 
01 Ad OOFF  8F 00 38 003D SKPC = #0, «#255, 1(R4) : 2345 | 
02 12 00044 BNEQ 3$ : 
51 04 00046 CLRL sR : 
51 D3 00048 3$ TSTL =P : 2346) 
04 12 O004A BNEG  4$ ; 
51 01 AG oF 004C MOVAB 1(R4), P : | 
51 p 00050 4$: DECL P : 2347 
61 51 54 83 00052 SUBB3 «RG, P, (P) ; 3348 
3g 01 pd 00056 OVL #1. REC LENGTH : 2353 
5 01 Al 9E 00059 MOVAB 1(R1), R : 2354 
50 0100 C4 9E 0005D MOVAB 256(R4), Q : | 
OF 11 00062 BRB 6$ : 
60 3 0064 5$: iste (9) : 2356 
54 50 gf 7 itt SUBL3 P, Q, R4 : 2359 
52 01 AG : 006¢ MOVAB 1(R45, REC_LENGTH ; 
07 11 00070 BRB 7$ : 2358 
20 D7 00072 6$: DECL @ > 2354 
53 0 D1 00074 CMPL = Q, RB ; 
é 1E 0077 BGEQU 5$ : 
DD 0 79 7$: PUSHL P ; 3370 
DD 00078 PUSHL REC_LENGTH > 2369 
FEFB CF § PP bore CALS 4 WRITE_RECORD jae 
0 6 06 0084 OVL Neu NAM> RO : 2376 
: 3A AQ A 0087 HOV ZBL B «ROY, Re ; 
02 C2 0008B UBL2 #2, Re ; 


JOURNA Journal file manager 
you~ 000 WRITE _JOUR_FILE = urite file name record 


Te: 
0 018 f 
OOFF 8F 00 01 Al 
01 6A 
29 6 
1 AO 
1 4 ay 
52 1 4c OA 
6 2¢ 
0080 =«8F 20 4C 60 re 
08 04 AC 
6E46 
9E 01 
05 
6E46 
9E 
04 AS 
04 
FEA2 CF 03 
3; Routine Size: 219 bytes, Routine Base: CODE + 0427 


1 
to jou 1 
D 
BS 
C 9 
444 
0 Al 
A O00A4 
C OAS 
A OAC 
3t 0081 
C 00084 
2 $Rs 
a ita 
DO 000C4 
11 Boos 
9F 000C9 
BD booce 
BF 00000 
DD 90003 
FB 00005 
04 O00DA 


a 
~Sep-1 


8$: 


oO 
wr 


108: 


PS 


een Oi ies 36 V4.0=742 
BACKUP.SRCJJOURNAL .832; 1 


Tour DiRY RO 
ao T(R1S, #0, #255, 1(RO) 


JNPUT_NAM, RO 

(RO) RI 

4(RO), R1 

76(ROS, R1, NAME_LENGTH 
NAME LENGTH, Rs 

R6, B76(RO), #32, #128, REC_BUFF 


HEADONLY 9 
REC _BUFEERG 

#1, "a(SP)+ 
REC_BUFFCR6] 
a(SP)+ 

SP 

4(R6) 

#4 

#3, WRITE_RECORD 


ie 


2 
3 


FS FWWAINIA ANA PPOPININININID 2 2 POO ee 


1 
file manager 18-50-1984 90:03: 3¢ yorer Bliss-32 V4.0-742 
DIRECTORY = write directory name rec 14-Sep-1984 11:53: BACKUP. SRC JJOURNAL .832;1 


ZSBITL ‘WRITE JOUR_DIRECTORY = write directory name record to journal’ 
GLOBAL ROUTINE WRITE_JOUR_DIRECTORY: NOVALUE= 


ce 
ms 


SELLE PLETE EE DO 


™ 


1o4 
t 
FUNCTIONAL DESCRIPTION: 
This routine writes the final directory name record 
in the journal file. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


Stewie +o 4 
SAP WN LOGO GENE I ODONOU SN OD 
POPOPOPOPIPIPONINIADIMNININIPINIPYIAITNIPINIPINININIPINIPINIPINY 


SIDE EFFECTS: 
NONE 


=—OOONAOMNE WN $ O OONOU EWN —“OOONOUE WN 15 


LOCAL 
! Temp 
REC_LENGTH; ! Length of directory record 


as33 


448 


= 
od 


! Note that there are no leading nulls in the directory ity 
' Strip eros ing nulls from the pirecter? string. Since the directory string 
$ edded nulls. 


(0) = 0; ! Zero leading nulls 

H = BJLSC_DIR_LEN + 1; ' Assume no null found 
DIRC1) Oj ' Find first null 
JOUR_DIR 04: | Establish count 


! is printable ASCII, there can be no e 


SES3ce 


T 
SF IND_CH(BJLSC_DIR_LEN, JOUR 
Q O-THEN REC_LENGTH = .P - 


: Write the directory record. 


URITE RECORD ( 
BILSK_DIRECTORY, 
REC _CENGTH 

a JOUR-DIRCOI5; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
SASSUME ( BJLSC_DIR_LEN GEQ NAMSC_MAXRSS ) 


ROPIPYINININININGINININININININ 
REO OR AANA DAADA 
wns —COOONVNOUSWN—O0 


WOOOODODODOOOOVOO 
PDI et et et ot wt ot a a 
—SOO@OnOuswn—o 


J 
v04 


12 
JOURNA Journal file manager hang =19 :03:32 AX-11 Bliss-32 V4.0-742 
you-000 WRITE _JOUR_DIRECTORY = write directory name rec 12-8 08=1 oe 90:03:22 EBACKUP SRC IJOURNAL .B3241 


000¢ 00 .ENTRY WRITE JOUR_DIRECTORY, Save R2,R3 
$2 00000000' EF 00 MOVL  JOUR_BIR, R2 
2 9% 999 CLRB = (RR) 
53 0100 8F 3C 000 MOVZWL #256 REC LE TH 
01 A2 OOFF BF A 01 Locc = #0, - #255, “1 (R2) 
2 0001 BNEQ = 1 
D4 00019 CLRL sR 
1 0 1B 1$: mwa. o 
4 | 1D BEQL. 2 
53 51 C 1F SUBL3 R2, P, REC_LENGTH 
dd 2$ PUSHL R 
DD 0 PUSHL REC_LENGTH 
6 D 000 PUSHL # 
FE73 CF FB 00029 CALLS #3, WRITE_RECORD 
04 0002E RET 


; Routine Size: 47 bytes, Routine Base: CODE + 0502 


| 
| 
| 


JOURN Journal file mana Sep-1984 00:03: AX-11 Bliss<-32 V4.0-742 Page 38 
¥Oe-006 READ_BYTE = read 2b byte from journal if: se0-1984 99:03:32 BACKUP. SRC JJOURNAL .B32; 1 «135 
; 923 4 1 ZSBTTL ‘READ_BYTE = read a byte from journal’ 

: 934 as? ] ROUTINE READ"BYTE (BUFFER)= . 

; 9 $ ig9 1 {44 

3 9 470 1! 

s 9 8 471 1! aah DESCRIPTION: 

; 9 tts 1! This routine reads one byte from the journal file, reading a new 

; 9 473 1! block if necessary. 

>; 931 474 1! 

3; 9 ¢ 475 1°! INPUT PARAMETERS: 

3 4 428 ! BUFFER - Pointer to where byte will be returned. 

; 935 a's 1 ! IMPLICIT INPUTS: 

3; 9 479 1! NONE 

3; 937 480 1! 

; 938 481 1 ! OUTPUT PARAMETERS: 

; 939 o36 1! NONE 

3 8 483 1! 

3 41 tbe 1 ! IMPLICIT OUTPUTS: 

3; (94 485 1! NONE 

; 94 486 1! 
: 944 487 1 ! ROUTINE VALUE: 

3; «945 488 1! SS$_NORMAL - Byte successfully returned. 

3 ok 430 : } SSS_ENDOFFILE = En id (beginning) of file, no byte returned. 

; 968 491 1°! SIDE EFFECTS: 

3; 949 492 1! NONE 

; 950 493 1! 

3; 951 494 1 !e- 

3 B26 495 i | 
s; 9 96 BEGIN 

3 954 497 2 LOCAL a 

3 Yd 2498 ORIG_INBLK; ! Original block 

; 956 499 

; 957 500 

3 338 23) : Establish the new file position and test for end of file. 

; 960 208 ori G_INBLK = .JOUR_INBLK; ! Save position to check for change 
; 961 504 IF - JOUR_REVERSE ! Reading in reverse? 

3 208 505 THEN 

; 359 BEGIN 

3; «964 50 IF .JOUR_INBYTE EQL 0 ! Any more bytes in this block? 

3; 965 508 THEN 

3 4] 509 4 BEGIN ' No more bytes. in current block 

; 96 510 4 JOUR_INBLK = .JOUR_INBLK = 1; ! Decrease block numbe 

: 968 511 4 IF .JOUR_INBLK EQL~ ! If block number has reached 0 

; 969 216 4 THEN RETURN SSS_ENDOFFILE; ! then return end of e 

3 370 a 4 goye IneVTE = 512; ! Reset to byte following end of block 
3 3n8 318 JOUR_INBYTE = .JOUR_INBYTE = 1; ! Decrease byte number 

3 97 16 END 

3 974 51 

3; 975 218 vr gh 

3 44 | 51 te NBYTE = .JOUR_INBYTE + 1; ' Increase byte numbe 

: 444 38) iF JOUR, INBYTE GEQOD 512 ! Any more bytes in this block? 

: 979 522 4 BEGIN ! No more bytes in current block 
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12 
file ma 18. Sep-1984 AX-11 Bliss=-32 v4.0-742 P 9 
TE - read bb byte from journal 12-Sep-1984 9: 3: HA BACKUP. gre JOURNAL .832; 1 age 43) 


JOUR. eure = .~ INBLK + 1; ! Increase 910¢0 numbe 
JOUR. INBYT ! Reset to first byte of block 


IF .JOUR_INBLK GEQU .JOUR_EFBLK AND .JOUR_INBYTE GEQU .JOUR_FFBYTE 
-~ THEN RETURN SSS_ENDOFFILE; ' Check for end of file” 
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Read next block if necessary. 
if .ORIG_INBLK NEQ .JOUR_INBLK 
THEN 


' Status variable 
vecToacs WORD], ! 1/0 status block 
REF Lot; ! Pointer to FAB for journal file 


mee eentooe _JOUR_FCI; 


SSSSesSesesssa399 


See Se Ge Se Se Ge Ge Ge Ge Se Ge Se Ge Ge Gs Ge Gs Ge Se Gs Ge SF Sse Se Ge Se Se SF Ss Se Ge Se Ss 4 Ss Ss SH Se Ss ese 


=—NIPINININININ AINA AWWW NANNN NINN NWI PIPUDPINININPINI WS 
Mm 
~" @ 
= m 
oa 
et 
—umr Zz 
o- 
Pd 
-o-,4 
oC 
wn 
* 


: 8 

539 

540 

541 

Pp 348 STATU S$ = $0l0W 
1 P 254 FUNC=10$ IREADYBLK 
1 P 2544 CHAN=.FABLFABSL_STV), 
i p ate 10s-1088, 
= 

1 Pp 309 P 313." 
1 548 P3= 
1 549 LF <Status TA TREN N Status = .10SB8C0); 
1007 550 IF 
1008 551 
1009 33¢ FILE_ERROR( 
1010 55 BACKUP$_READERR + STSS$K_SEVERE, 
1011 554 FAB 
1018 555 “STATUS); 
101 556 END: 
1014 557 
1015 558 
He 223 : Return the required byte, and success. 
1018 2561 (.BUFFER)<0,8> = .JOUR_BUFFERL.JOUR_INBYTE); 
1019 $36¢ SS$_NORMAL 
1020 56 ; 


000C 00000 READ_BYTE: 


<WORD Save R2,R3 3; 2467. 
53 00000000° FF 9 9 9002 HOVAB JOUR_INBYTE, R3 ; 
3 SUBL #8, SP 3 
5 FA OA Oc MOVL  JOUR_INBLK ORIG. INBLK > 2503 
12 0S A 4 10 BLBC JOUR “REVER ERSE + 2504 
: 14 TSTW OUR=INB : 250 
A 16 BNEQ : 
FA AB ; i DECL §§ JOUR_INBLK : 251 
gs 18 BEQL 4 : 251 
63 0200 &8F B80 0001D MOVW #512, JOUR_INBYTE : 251 
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H 12 
JOURN Journal file manager 6-Sep-1984 00:03: AX-11 Bliss-32 v4.0-742 Pa 40 
you~ 000 READ_BYTE = read : byte from journal 12286871382 99:03:32 EBACKUP.SRe JOURNAL .632;1 912) 
3 7 1$: DECW INBYTE : 2515 
sf Hy gouge" peew ggun i 38 
86 6 2s: INCW § JOUR_INBYTE + 2519 
0200 8F 6 CMPW UR-INBYTE, #512 + 2520 
F 1) BLSSU : 
FA AS D6 F INCL § JOUR_INBLK : 2523. 
63 B4 CLRW JOURTINBYTE ; 32h 
F6 AB FA A D1 9 4 3$: CPL OUR-INBLK, JOUR_EFBLK + 2526, 
FE A3 § 81 000 CMPW JOUR. INBYTE, JOUR_FFBYTE : 
6 iF F BLssu  5$ : 
50 0870 «8F ¢ 4} 4$ MOVZWL #2160, RO : 2527 
FA AB 50 01 23 5$ CMPL RIG_INBLK, JOUR_INBLK : 2533. 
41 13 00048 BEQL ; 
52 FDD2 cs 00 4D MOVL  QUAL*52, FAB : 3541 
— 7C 00052 CLRO = = (SP) + 2548) 
re D4 00054 CLRL 3s = (SP) ; 
FA OA bp 00056 USHL JOUR. INBLK : 
7E 0200 8F 3C 0005 MOVZWL #5127 -(SP) ; 
EA A3 bp 0005 USHL JOUR BUFFER ; 
7E 7¢ 9006} CLRQ.  =(SPY : 
20 AE 9F 0006 PUSHAB 1058 ; 
31 DD 00066 PUSHL #49 ; 
OC A2 DD 00068 PUSHL  12(FAB) : 
7E D4 00068 CLRL. = = (SP) F 
000000006 00 o¢ FB 0006D CALLS #12, SYSSQI0W F | 
06 0 £9 90074 BLBC TATUS, 6$ ; 2549) 
50 gE 3 0077 MOVZWL 10SB, STATUS ; | 
11 50 £8 0007A BLBS TATUS, 7$ ; 2550, 
50 DD 00070 6$ PUSHL STATU : 2555) 
ze DD poor PUSHL 3 $328 | 
000000006 18F DD 00081 PUSHL #BACKUPS_READERR*4 : 2553 
000000006 00 03 FB 0087 CALLS #3, FILE-ERROR ; 
20 63 3C O008E 7$ MOVZWL JOUR_INBYTE, RO + 2561 
0 EA a3 CO 00091 ADDL2 JOURTBUFFER, RO : | 
046 BC 60 90 00095 MOVE (RO)> @BUFFER ; 
50 01 v0 90099 MOVL #1, RO > 2563) 


; Routine Size: 157 bytes, Routine Base: CODE + 0531 


st CC - a — 


; 12 
JOURNA Journal file manager 16- ep-1984 00:03: AX-11 Bliss-32 V4.0-742 Page 41 
¥Oe-000 READ_JOURNAL =< read record from journal 1 =30071 38a 99:03:38 YBACKUP-SRETJOURNAL .852¢1 . ad 
: 19 ¢ 64 1 ZSBTTL "READ JOURNAL - read record from journal’ 
; 1s : 65 : GLOBAL ROUTINE READ_JOURNAL (BUFFER)= 
: 1025 83 1 {+4 
3; 10 8 o8 1! 
; 10 § 1 ! FUNCTIONAL DESCRIPTION: 
3; 1028 > 24 This routine reads a record from the journal file and validity checks 
s H 9 2) : H various fields. 
> 1031 ng 1 i INPUT PARAMETERS: 
3; 10 ¢ 7% 1! BUFFER - Pointer to input buffer, where record is returned in 
; 13 ? ! : ASCIC format. 
> 1035 379 | i IMPLICIT INPUTS: 
; 10 278 . NONE 
3; 10 79 1! 
: 1038 280 1 ! OUTPUT PARAMETERS: 
3; 1039 $) 1! NONE 
$ + 5 ; 1! 
3 1041 5 1 ! IMPLICIT OUTPUTS: 
: 104 584 1! NONE 
3: 104 585 1! 
3: 1044 586 1 ! ROUTINE VALUE: 
: ok 587 1! SS$_NORMAL - Record successfully returned. 
3 re 388 : SSS_ENDOFFILE = End (beginning) of file, no record returned. 
: 1048 590 1 | SIDE EFFECTS: 
3 1049 591 1! NONE 
; 1050 592 1! 
: 1051 298 | jee 
3 1926 594 1 
3; 105 595 BEGIN 
3 1054 596 MAP 
3 1086 44 BUFFER: REF BBLOCK; 
> 105 599 
; 1058 600 ' Read byte count and convert to true byte count yoine XOR context. If the 
3; 1059 2601 ! byte count is zero, in a well-formed journal file, it means that we have 
3 1060 $008 ! reached the end of the data for a save set, and the next byte, it 
3 103 $007 exists, is the initial byte count for the next save set. 
; 1908 605 2 D0 
3 1064 ‘53 BEGIN 
: 1065 6 IF NOT READ_BYTE(BUFFERCBJL$B_SIZEJ) THEN RETURN SSS$_ENDOFF ILE; 
3 1008 6 : JOUR_COUNT = .JOUR_COUNT XOR .BUFFERCBJL$B_SIZE); 
3; 106 60 END 
3; 1068 610 wis JOUR_COUNT EQL 0; 
: 1069 611 2 BUFFERLBJL$B_SIZEJ = .JOUR_COUNT; 
ior 18 
: 107 614 ! Read remainder of record. 
5 + 4 615 ! 
3; 1074 $18 IF ,JOUR_REVERSE 
3; 1075 61 THEN 
é 1978 $18 DECR I — -JOUR_COUNT TO 1 DO 
: 1078 620 IF NOT READ_BYTE(BUFFERC.1,0,8,0]) THEN SIGNAL (BACKUPS_INVBJLEOF); 


wa Hy 


oc 


a Se file manager 1b-se fies ats ri 99: 93: 3 AX-11 Bliss-32 Lo Fae Page 42 


De 


ved The record must be exactly the correct size. 
66 if ‘Pur FER(BJ. 58 SIZE] NEQ BJLSC_VOLUME_LEN+1 
THEN SIGNAL (BACKUP$_INVBJLSIZ); 

669 END; 
3 
6 CBJL$K_DIRECTORY): 

BEGIN 
674 LOCAL 
675 P ' Temp 
676 LEADING_NULLS; i Count of Leading nulls in XOR 


AD_JOURNAL = read record from journal in-ge BACKUP. SRC J JOURNAL .B (13) 
3; 1079 1 
3; 1080 § ELSE 
3 i 8 ° 7 INCR_I FROM 1 TO .JOUR_COUNT DO 
3 1 4 625 IF NOT READ_BYTE(BUFFERC.1,0,8,0]) THEN SIGNAL (BACKUPS_INVBJLEOF); 
3 1086 6 8 END; 
3 1085 6 
3 1989 6 3 
3 ieee ? 3 } Do type-specific checking of the record. 
3 1089 631 CASE .BUFFERCBJLSB_TYPE] FROM BJLSK_STRUCLEV TO BJLSK_FILE OF 
; 1930 6 ¢ SET 
3; 1091 6 
; 1995 6 
3; 109 635 CBJL$K_STRUCLEV): 
3 138 § BEGIN 
: 1096 ret !' The record bongee must be exactly correct, and the structure level 
$ 444 o78 must be correc 
3 1998 641 if “Burrentest Se size) ste BJLSC_STRUC_LEN+1 
; 1100 276 N SIGNAL (BACKUP VBJLSIZ); 
3 1101 64 IF BBLOCK E{BUPFERCBILSB- HAE BL $w og TRUCLEVE NEQ BJLSK_LEVEL1 AND 
s 1108 644 7ae CK RCBJL$B_DATAI, BJLSW_ STRUCLEV] NEQ BJLSK_ LEVEL2 
3 110 645 THEN SIGNAL (BACKUP$~INVBJLSTR); 
3 1104 o4e JOUR_STRUCT_LEV = BBLOCKCBUFFERCBILSB.. DATA], BJLSW_STRUCLEV] ; 
3 1105 64 END; 
3: 1106 648 
3 1107 649 
3: 71 650 CBJL$K_SSNAME): 
3 1% $31 BEGIN 
3 7% $38 ! The record must be long enough to cover the creation 
3 1% O38 date, but not more than the maximum size. 
3 11 2656 if .BU ueren BJL$B_SIZE] LSSU yA yeh Mey 4 SSNAME ) +1 
3 11 657 OR 4 FFERCBJL$B8 SIZE] GTRU BJL$C_SSNAME_LEN+T 
3 7 $28 _THEN SIGNAL BACKUPS. INVBILSIZ7s 
3 11 660 
3 11 661 
311 6 CBJL$K_VOLUME): 
3 11 66 BEGIN 
3 11 6 
3 11 
3 11 
3 11 
3 11 
3 11 
3 11 
3 11 
3 1 
3 11 
3 11 
3 11 
s 11 
¢ 11 


08 
09 
10 
4} 
1§ 
14 
15 
16 
if 
19 
0 
; 
g 
4 
5 
? 
9 
0 
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J Journal file man 16-Sep-1984 00:03:32 AX-11 Bliss-32 V4.0-742 Pa 43 
yo4~008 READ_JOURNAL =- = reed. record from journal 13230871384 99:03:84 BACKUP. SRCJJOURNAL .B32; 1 9° 43) 


: 11 67 

3 11 67 ! The record must be long enough to cover the of reat gata count, | 
3 13 $4 i but not longer than the maximum. The count of real data plus the 
3 132 re count of leading nulls must not exceed the maxi 
3 1141 a an :8 merer pul 88 Size LSsu ‘ | 
: 1326 4 R. RLBJ pe ei tes, JLSC_DIR_LEN 

3 114 5 R CBUFFERES $8°SIZE + BUFFER ByC$B wrist GTRU BJLSC_DIR_LEN+2 

3 11446 a6 THEN SIGNAL (BACKUPS, INVBJLS1IZ); 

3 1145 

; Br 68 

3 \\et rend Pick up count of implicit leading nulls. 

3 33 $3) LEADING_NULLS = .BUFFERCBJLS$B_DATA]; 

> 1151 69 

3 1126 694 ! Compute XOR of bytes in record and bytes of context to develop 

: Wee 237 true value. 

; 1155 97 INCR I FROM SBYTEOFFSET(BUJLSB _DATA)+1 TO .JOUR_COUNT DO 
3; 1156 698 4 BEGIN 

3 1157 699 4 euren | 1,0,8,0] = .BUFFERC.1,0,8.0] x 

: 1158 700 4 Dirt + {LEADING “NOLES ~ SBY TEOFFSET(BJLSB. DATA) J; | 

3 1309 70 

311 70 

; HB re : Move non-null data in record to appropriate offset. ; 

3 11646 70 IF .LEADING_NULLS NEQ 1 

3; 1165 70 THEN 

3: 1166 708 CHSMOVE ( 

3 1167 709 - JOUR_COUNT=- ee 

3; 1168 2710 BUF FERCBJL$B +1, 

3 1169 711 BUF FERCBJLS$B_ DATA + .LEADING_ NULLS); 

ne ong 

; 158 Ay } Establish Leading portion of directory string from context value. 

3 1176 716 IF .LEADING_NULLS NEQ 0 

3 1175 717 TH 

5 1178 718 SMOVE ( 

3 117 719 shan bir pyylts. 

3 1178 720 pat 

> 1179 721 BUFFER BIL36. DATA); 

: 1180 7 ¢ 

3 1181 7 

3 4 7246 ! Establish trailing portion of directory string 

3 118 725 i from context value. 

3 ie 7 § i 

3 1185 7 SMOVE ( 

3 1196 728 BJLSC nities LEN = (.LEADING_NULLS + . JOUR COUNT - 2), 

3; 118 729 JOUR qh ~LEADING_NULLS +”, JOUR COUNT -"1 

; 1188 , 9 BUFFERCBJL$B_DATA] + .LEADING_NOLLS + .JOUR_COUNT - 2); 

3: 1190 7 ; 

3 113) 4 } Save true value for next directory record. 


JOURNA Journal file manager 18-$e -1984 00:03: AX-11 Bliss-32 V4.0-74 p 
yoe~000 READ_JOURNAL = read record from journal 1 =30071 382 99:03:82 EBACKUP.SRe JOURNAL B S241 age 43) 
: 1136 i CHSMOVE (BULSC_DIR_LEN, BUFFERCBJLSB_DATA], JOUR_DIR(1)); 

: 1195 7 

3 11 7 ! Strip trailing zero bytes from true value to develop actual 

$ 1199 7 3 ' record. The Solus is’ printable ASCII and thus con Contata 

: 118 a : no embedded nulls. 

: 1200 7% BUFFERCBJL$8_SIZE] = BJLS$C_DIR_LEN + 1; 1A -nuil 
: 1201 28 P = CH F IND_CH(BJLSC DIR_LEN BUFF ERCBILS_DATA) aay mabey ts 

; : 4 oe cr. NEQ 0 THEN BUFFERCBJL$8_SIZE = Pe BUF FERCBJL$B_TYPEJ; 

5 1204 74 F 

: 1205 rg 

3: 1 748 CBJL$K_FILE): 

: L OF Pep BEGIN 

3 ) +4 731 } The record must not exceed the maximum length. 

: 1211 Fag if .BUFFERCBJLS$B_SIZE] GTRU BJLSC_FILE_LEN+1 

; : \¢ ks ~*~... SIGNAL (BACKUP$_INVBJLS1Z3; 

: 1214 136 y 

: 1215 75 

. a 1¢ 758 COUTRANGE): 

: ; v r28 SIGNAL (BACKUP$_INVBJLTYP); ! Undefined type code 

: 1219 2761 

de Weg 

3:1 764 

: 1558 $ie2 ! Indicate success. 

3 12246 766 ‘ 

: \$6? 2767 SS$_NORMAL 

: 1226 2768 1 END; 


OURNAL, Save R2.R3.R4,.R5,.R6,R7,RB,R9.-; 2565. 


OFFC 00000 ENTRY READ AS 3 
5B 000000 00 9 00002 MOVAB LIBSSIGNAL, R11 ; 
5a 00000000° EF 3 0009 MOVAB JOUR COUNT. R10 : 
56 AC DO 90010 MOVL - BUFFER, R6 : 2607 
56 DD 00014 1$ PUSHL  R6 ; 
FF48 OCF gi FB 90016 CALLS #1, READ BYTE ; 
06 0 0018 BLBS RO : F 
50 0870 &F ¢ Ook MOVZWL #2160, RO : 
6A 66 8C 00 4 2%: XORB2 (R6), JOUR_COUNT > 2608 
53 6A 9A 00027 MOVZBL JOUR: COUNT; R > 2610 
Es 13 OOO2A BEQL ss} : 
$6 1 AA ist orate Sada Reverse. Ss : zee 
52 rf A3 oe 00 3 MOVAB 1eRSy. I : 2618 
14 11 000 BRB 4 : 
6246 9F 00039 3$: PUSHAB (1)(R6) > 2620. 
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ager 
- read record from journal 
FF22 ff 1 
9 0 
000000006 . 
y 
45 
6246 
FFOS CF 9 
09 0 
000000006 i 
0 01 iz 
004 0018 
00E9 
00000000G_ 8F 
00E2 
03 66 
09 
000000006 8F 
68 01 
0101 + 8F 02 “* 
0102 + 8F 02 a 
000000006 8F 
68 01 
FE AA 02 A6 
0086 
09 66 
08 
ro’) 66 
00A0 
OF 66 
34 
009A 
02 $ 
0 66 
| 02 a6 
00000101 8F 8 
000000006 rf 
; 02 Ab 
] 6A 
7 EA AA 
0 02 
A 
50 33 f 
6046 FE A14 C 
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p=198¢ 11:55:54 EBACKUPeSRESJOURNAL 85021 


#1, READ_BYTE 


#BACKUPS_INVBJLEOF 
#1, LIBSSIGNAL 


$ 

$ 

(1) CR6] 

#1, READ_BYTE 


#BACKUPS_INVBJLEOF 
#1, LIBSSIGNAL 


R3, I, 6$ 
1(R6). #0, #46 


14$-9$.- 
15$-9$.- 

17$-9$.- 

25$-9$ 

#BACKUPS_INVBJLTYP 

», #3 
CKUPS_INVBJLS1Z 
LIBSS1GNAL 

6), #25 

6), #258 

#BACKUPS_INVBJLSTR 

#1, Ll NAL 

(Re, JOUR_STRUCT_LEV 
(R6), #9 

(R6), #41 


», #15 


—_ 
=] 
wn 


meh pret 
— Doo 


NANA — 
PADAD: FPeOw 


DDR em Ane 


#BACKUP$_INVBJLS1Z 

#1, LIB 

2(R6), LEADING_NULLS 
Jour_COUNT, R9 

J UR DIR. R7 
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anager ba AX-11 Bliss-32 V4.0-742 
reac recor rom journa 2 Sep- ° 
35 d f l 18-3 138 9: 9: Hi BACKUP. SRCJJOURWAL.B32;1 
9 £3 00103 21$:  AOBLEQ 
33 1 ; CMPL RTO er NULLS, #1 
2 10A BEQL gs 
A 1 MOV ab, 
0 1 move the} 2(LEADING_NULLS)CR6] 
: 117 228:  TSTL Aving LLS 
18, Ritts Ettore mats. cars, 20mg 
FEFF C94 se i 23$: MOVAB nen ADING_NuLis 55°") 
ff 12A ADDL LEADING NULLS, R1 
5 Sh Oot 3 move aie thss Pena h Pao 
F : 1 MOV ; . ay Tir) 
66 94 00141 CLRB 
00 3A 00143 LOCC =«_-«s#0,,_- #255, 2(R6) 
0¢ i O14, BNEQ 246$ 
D4 0014C¢ CLAL Ri 
51 D3 O14 24$:  TSTL 
19 13 0015 BEQL 298 
Ab 3 0152 MOVAB (RO), RO 
50 83 00156 SUBB3 «RO, P, (R6) 
OF 11 0015A BRB 
66 91 0015¢ 25S: CMPB  (R6), #133 
09 18 00160 26$:  BLEQU 29$ 
000000006 8F DD 00162 27$:  PUSHL j#BACKUP$_INVBJLSIZ 
6B 01 FB 00168 28$: CALLS #1, LIBSSIGNAL 
50 01 00 00168 29$:  MOVL “#1. 
04 0016E RET 


; Routine Size: 367 bytes, Routine Base: CODE + OSCE 


JOURNA urnal file manager 90:03: 32 AX-11 Bliss-32 V4.0-742 
v04-00 RE AD_JOURNAL = read record from journal 14-Sep-1984 11:55:54 BACKUP. SRC JJOURNAL .832; 1 
: 1228 769 1 END 
; 1338 $f $3 0 ELUDOM 
«EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: COMMON 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
; CODE 1853 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: cocccese Symbols -<------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBILIB.L32;1 18619 53 0 1000 00:02.2 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: JOURNAL/OBJ=OBJ$: JOURNAL MSRC$: JOURNAL/UPDATE=(ENH$: JOURNAL ) 


Size: 


Run Time 245. 
Fleeced taet 02:34.4 
Lines/CPU Min: 655 
Lexemes/CPU-Min: 32145 
penecy Used: 0 pages 
Compilation Complete 


1841 coge,* 2136 data bytes 
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